[Bug fortran/54387] Proc-pointer: Wronlgy accepts non-proc result variable on the RHS of a pointer assignment

[burnus at gcc dot gnu.org]

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