gcc/testsuite/gfortran.dg/pointer_target_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/47377
   4 !
   5 ! Contributed by <thenlich@users.sourceforge.net>
   6 !
   7 program testgferr
   8     real, pointer :: y
   9     y => f()  ! { dg-error "must deliver a pointer result" }
  10 contains
  11     function f()
  12       real :: f
  13       f = 5
  14     end function f
  15 end program testgferr