comparison gcc/testsuite/gfortran.dg/proc_ptr_12.f90 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
4 ! 4 !
5 ! Contributed by Janus Weil <janus@gcc.gnu.org> 5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
6 6
7 procedure(integer),pointer :: p 7 procedure(integer),pointer :: p
8 p => foo() 8 p => foo()
9 if (p(-1)/=1) call abort 9 if (p(-1)/=1) STOP 1
10 contains 10 contains
11 function foo() result(bar) 11 function foo() result(bar)
12 procedure(integer),pointer :: bar 12 procedure(integer),pointer :: bar
13 bar => iabs 13 bar => iabs
14 end function 14 end function