[Bug fortran/40450] [F03] procedure pointer as actual argument

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