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