2 ! { dg-options "-std=f2003" }
10 integer, parameter :: n
= 7
13 integer, target
:: b(n
)
16 print *, sumf(a
) ! { dg-error "Actual argument for 'a' at .1. must be a pointer" }
17 print *, sumf(b
) ! { dg-error "Fortran 2008: Non-pointer actual argument at .1. to pointer dummy 'a'" }
21 function sumf(a
) result(s
)
22 integer, pointer, intent(in
) :: a(:)