[Bug fortran/41022] [F03] procedure pointer components as actual arguments

[janus at gcc dot gnu dot org]

------- Comment #5 from janus at gcc dot gnu dot org  2009-08-10 14:14 -------
This patchlet should fix it:

Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c    (revision 150621)
+++ gcc/fortran/trans-expr.c    (working copy)
@@ -2679,7 +2679,8 @@ gfc_conv_procedure_call (gfc_se * se, gf
                           && fsym->attr.flavor != FL_PROCEDURE)
                          || (fsym->attr.proc_pointer
                              && !(e->expr_type == EXPR_VARIABLE
-                             && e->symtree->n.sym->attr.dummy))))
+                             && e->symtree->n.sym->attr.dummy))
+                         || gfc_is_proc_ptr_comp (e, NULL)))
                    {
                      /* Scalar pointer dummy args require an extra level of
                         indirection. The null pointer already contains


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
            Summary|[F03] problem with procedure|[F03] procedure pointer
                   |pointers                    |components as actual
                   |                            |arguments


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