gcc/testsuite/gfortran.dg/pointer_target_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 !
   4 ! TARGET actual to POINTER dummy with INTENT(IN)
   5 !
   6 program 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()
  12 contains
  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
  21 end program test