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

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54387

             Bug #: 54387
           Summary: Proc-pointer: Wronlgy accepts non-proc result variable
                    on the RHS of a pointer assignment
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Keywords: accepts-invalid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
                CC: janus@gcc.gnu.org


Found by James Van Buskirk in c.l.f's "Function questions?" thread: 
https://groups.google.com/forum/?fromgroups=#!topic/comp.lang.fortran/r4PVbtaBnFM


The following program is invalid as "foo" inside the function is the result
variable - hence "i => foo" doesn't make sense.


function foo()
  integer :: foo
  procedure(), pointer :: i
  i => foo  ! Invalid RHS - in this context "foo" the RESULT variable
            ! To use the procedure name, a RESULT(...) has to be specified
end