https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96294
--- Comment #2 from PengWang <peng.w...@compiler-dev.com> --- (In reply to Dominique d'Humieres from comment #1) > 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 Where is this explanation to be found, I have not seen it yet, maybe the standard documents that I have are imcomplete, Can I have the download link of your standard document? thank you very much!!!
