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