[Bug fortran/36704] Procedure pointer as function result

[janus at gcc dot gnu dot org]

------- Comment #2 from janus at gcc dot gnu dot org  2008-11-30 17:50 -------
Created an attachment (id=16793)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=16793&action=view)
patch v1

Attached is a minimal patch, which makes the simple case work where a separate
result variable is used, like in this example:

procedure(real),pointer :: p
p => foo()
print *,p(1.0)
contains
  function foo() result(bar)
    procedure(real),pointer :: bar
    bar => sin
  end function
end


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED


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