blob: cda3453d9d85d5a5855ecacf2d6b2236717161a5 [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/47377
!
! Contributed by <thenlich@users.sourceforge.net>
!
program testgferr
real, pointer :: y
y => f() ! { dg-error "must deliver a pointer result" }
contains
function f()
real :: f
f = 5
end function f
end program testgferr