[Bug fortran/56852] [4.6/4.7/4.8/4.9 Regression] ICE on invalid: "Bad array reference" for an undeclared loop variable

[mikael at gcc dot gnu.org]

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

Mikael Morin <mikael at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |mikael at gcc dot gnu.org

--- Comment #3 from Mikael Morin <mikael at gcc dot gnu.org> 2013-04-07 11:47:58 UTC ---
There is a simple fix, may be too big hammer:

diff --git a/resolve.c b/resolve.c
index 835b57f..0b44c98 100644
--- a/resolve.c
+++ b/resolve.c
@@ -14426,6 +14426,7 @@ gfc_resolve (gfc_namespace *ns)
 {
   gfc_namespace *old_ns;
   code_stack *old_cs_base;
+  int errors;

   if (ns->resolved)
     return;
@@ -14435,6 +14436,9 @@ gfc_resolve (gfc_namespace *ns)
   old_cs_base = cs_base;

   resolve_types (ns);
+  gfc_get_errors (NULL, &errors);
+  if (errors > 0)
+    return;
   component_assignment_level = 0;
   resolve_codes (ns);