https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96294
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Resolution|--- |INVALID
Status|UNCONFIRMED |RESOLVED
--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
read
F2008: A pointer function assignment is ambiguous if it is the first executable
statement after the specification block. Please add any other kind of
executable statement before it. FIXME
program a
IMPLICIT NONE
print *, "begin"
myfunc() = 311
print*,myfunc()
contains
FUNCTION myfunc() RESULT (result_ptr)
IMPLICIT NONE
INTEGER, POINTER :: result_ptr
INTEGER, SAVE, TARGET:: targ
result_ptr => targ
END FUNCTION myfunc
end program a
gives
begin
311
