This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/36704] Procedure pointer as function result
- From: "janus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 30 Nov 2008 17:50:38 -0000
- Subject: [Bug fortran/36704] Procedure pointer as function result
- References: <bug-36704-13404@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla 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