[Bug fortran/55935] [OOP] Fortran fronted has ADDR_EXPRs of FUNCTION_DECLs with bogus BLOCK

[rguenth at gcc dot gnu.org]

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

--- Comment #15 from Richard Biener <rguenth at gcc dot gnu.org> 2013-01-11 14:55:55 UTC ---
Index: tree-ssa-pre.c
===================================================================
--- tree-ssa-pre.c      (revision 195103)
+++ tree-ssa-pre.c      (working copy)
@@ -3246,7 +3246,8 @@ insert_into_preds_of_block (basic_block
       gcc_assert (get_expr_type (ae) == type
                  || useless_type_conversion_p (type, get_expr_type (ae)));
       if (ae->kind == CONSTANT)
-       add_phi_arg (phi, PRE_EXPR_CONSTANT (ae), pred, UNKNOWN_LOCATION);
+       add_phi_arg (phi, unshare_expr (PRE_EXPR_CONSTANT (ae)),
+                    pred, UNKNOWN_LOCATION);
       else
        add_phi_arg (phi, PRE_EXPR_NAME (ae), pred, UNKNOWN_LOCATION);
     }