gcc/testsuite/gfortran.dg/PR94104b.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2008" }
   3 !
   4 ! PR fortran/94104
   5 !
   6
   7 program diag_p
   8   implicit none
   9
  10   integer, parameter :: n = 7
  11
  12   integer         :: a(n)
  13   integer, target :: b(n)
  14
  15   a = 1
  16   print *, sumf(a) ! { dg-error "Actual argument for 'a' at .1. must be a pointer or a valid target" }
  17   print *, sumf(b)
  18
  19 contains
  20
  21   function sumf(a) result(s)
  22     integer, pointer, intent(in) :: a(:)
  23
  24     integer :: s
  25
  26     s = sum(a)
  27   end function sumf
  28
  29 end program diag_p