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