1! { dg-do compile } 2! 3! TARGET actual to POINTER dummy with INTENT(IN) 4! 5program test 6 implicit none 7 integer, target :: a 8 integer :: b 9 call foo(a) ! OK 10 call foo(b) ! { dg-error "must be a pointer" } 11 call bar(a) ! { dg-error "must be a pointer" } 12 call bar(b) ! { dg-error "must be a pointer" } 13contains 14 subroutine foo(p) 15 integer, pointer, intent(in) :: p 16 end subroutine foo 17 subroutine bar(p) 18 integer, pointer :: p 19 end subroutine bar 20end program test 21