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