https://gcc.gnu.org/bugzilla/show_bug.cgi?id=81849
Harald Anlauf <anlauf at gmx dot de> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |anlauf at gmx dot de
--- Comment #2 from Harald Anlauf <anlauf at gmx dot de> ---
The problem is associated with the result clause. The following works:
program p
implicit none
integer :: n=3
print *, f()
contains
function f()
real :: f(n)
f = 7
end function
end program
