[Bug fortran/55907] [4.6/4.7/4.8 Regression] ICE with -fno-automatic -finit-local-zero

[janus at gcc dot gnu.org]

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



--- Comment #5 from janus at gcc dot gnu.org 2013-02-08 22:57:15 UTC ---

(In reply to comment #4)

> The following, which is a partial revert of r183180, fixes the ICE:



However, it fails on init_flag_9.f90, which the following version does not:



Index: gcc/fortran/resolve.c

===================================================================

--- gcc/fortran/resolve.c    (revision 195813)

+++ gcc/fortran/resolve.c    (working copy)

@@ -10982,7 +10982,7 @@ build_default_init_expr (gfc_symbol *sym)

       init_expr = NULL;

     }

       if (!init_expr && gfc_option.flag_init_character ==

GFC_INIT_CHARACTER_ON

-      && sym->ts.u.cl->length)

+      && sym->ts.u.cl->length && gfc_option.flag_max_stack_var_size != 0)

     {

       gfc_actual_arglist *arg;

       init_expr = gfc_get_expr ();