gcc/testsuite/gfortran.dg/pointer_target_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! TARGET actual to POINTER dummy with INTENT(IN)
   4 !
   5 program 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" }
  13 contains
  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
  20 end program test