http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54387
Tobias Burnus <burnus at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu.org --- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-08-27 22:23:31 UTC --- As postscript: (Intel, g95 and (with target attribute) PGI also accept the program of comment 0.) Crayftn correctly rejects the program of comment 0: i => foo ! Invalid RHS - in this context "foo" the RESULT variable ^ Invalid proc-target for this procedure pointer assignment statement. For the following, the diagnostic works and one gets the message: Error: Expected a procedure for argument 'x' at (1) function foo() integer :: foo call bar(foo) contains subroutine bar(x) integer, external :: x end subroutine bar end