This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/40450] [F03] procedure pointer as actual argument
- From: "burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 19 Jun 2009 07:31:19 -0000
- Subject: [Bug fortran/40450] [F03] procedure pointer as actual argument
- References: <bug-40450-16146@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #2 from burnus at gcc dot gnu dot org 2009-06-19 07:31 -------
(In reply to comment #1)
> Here is a preliminary patch which fixes the test case:
> if (fsym && e->expr_type != EXPR_NULL
> && ((fsym->attr.pointer
> && fsym->attr.flavor != FL_PROCEDURE)
> - || fsym->attr.proc_pointer))
> + || (fsym->attr.proc_pointer
> + && !(e->expr_type == EXPR_VARIABLE
> + && e->symtree->n.sym->attr.dummy))))
The patch looks OK.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40450