------- Comment #5 from pault at gcc dot gnu dot org 2008-05-01 17:40 -------
Tobias,
Does this do the job?
Paul
Index: gcc/fortran/resolve.c
===================================================================
*** gcc/fortran/resolve.c (revision 134835)
--- gcc/fortran/resolve.c (working copy)
*************** gfc_resolve_forall (gfc_code *code, gfc_
*** 5910,5915 ****
--- 5910,5918 ----
/* May call gfc_resolve_forall to resolve the inner FORALL loop. */
gfc_resolve_blocks (code->block, ns);
+ if (forall_save)
+ return;
+
/* Free VAR_EXPR after the whole FORALL construct resolved. */
for (i = 0; i < total_var; i++)
gfc_free_expr (var_expr[i]);
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35820
