[Bug fortran/42072] [F03] wrong-code with C_F_PROCPOINTER

[janus at gcc dot gnu dot org]

------- Comment #2 from janus at gcc dot gnu dot org  2009-11-16 22:55 -------
Proposed fix:

Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c    (revision 154189)
+++ gcc/fortran/trans-expr.c    (working copy)
@@ -2645,6 +2645,12 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol *
            tmp = gfc_get_ppc_type (arg->next->expr->ref->u.c.component);
          else
            tmp = TREE_TYPE (arg->next->expr->symtree->n.sym->backend_decl);
+
+         if (arg->next->expr->symtree->n.sym->attr.proc_pointer
+             && arg->next->expr->symtree->n.sym->attr.dummy)
+           fptrse.expr = build_fold_indirect_ref_loc (input_location,
+                                                      fptrse.expr);
+
          se->expr = fold_build2 (MODIFY_EXPR, tmp, fptrse.expr,
                                  fold_convert (tmp, cptrse.expr));


-- 

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|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-11-16 22:55:50
               date|                            |


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