1! { dg-do compile } 2! { dg-options "-std=f2003" } 3! 4! TARGET actual to POINTER dummy with INTENT(IN) 5! 6program test 7 implicit none 8 integer, target :: a 9 a = 66 10 call foo(a) ! { dg-error "Fortran 2008: Non-pointer actual argument" } 11 if (a /= 647) call abort() 12contains 13 subroutine foo(p) 14 integer, pointer, intent(in) :: p 15 if (a /= 66) call abort() 16 if (p /= 66) call abort() 17 p = 647 18 if (p /= 647) call abort() 19 if (a /= 647) call abort() 20 end subroutine foo 21end program test 22