! { dg-do compile } | |
! { dg-options "-std=f2003" } | |
! | |
! PR fortran/94104 | |
! | |
program diag_p | |
implicit none | |
integer, parameter :: n = 7 | |
integer :: a(n) | |
integer, target :: b(n) | |
a = 1 | |
print *, sumf(a) ! { dg-error "Actual argument for 'a' at .1. must be a pointer" } | |
print *, sumf(b) ! { dg-error "Fortran 2008: Non-pointer actual argument at .1. to pointer dummy 'a'" } | |
contains | |
function sumf(a) result(s) | |
integer, pointer, intent(in) :: a(:) | |
integer :: s | |
s = sum(a) | |
end function sumf | |
end program diag_p |