------- Comment #14 from pinskia at gcc dot gnu dot org  2006-11-12 02:31 
-------
Here is the fix which I am testing:
Index: fortran/trans-expr.c
===================================================================
--- fortran/trans-expr.c        (revision 118717)
+++ fortran/trans-expr.c        (working copy)
@@ -3104,6 +3104,7 @@ gfc_conv_expr_reference (gfc_se * se, gf
     {
       var = build_decl (CONST_DECL, NULL, TREE_TYPE (se->expr));
       DECL_INITIAL (var) = se->expr;
+      TREE_STATIC (var) = 1;
       pushdecl (var);
     }
   else


-- 


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

Reply via email to