------- 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
