2 ! { dg-options "-std=f2003 " }
6 ! Pointer function as definable actual argument
7 ! - a Fortran 2008 feature
10 call one (two ()) ! { dg-error "Fortran 2008: Pointer functions" }
11 if (tgt
/= 774) STOP 1
14 integer, intent(inout
) :: x
19 integer, pointer :: two