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