From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 9261 invoked by alias); 7 Apr 2013 11:48:06 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 9141 invoked by uid 48); 7 Apr 2013 11:48:00 -0000 From: "mikael at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/56852] [4.6/4.7/4.8/4.9 Regression] ICE on invalid: "Bad array reference" for an undeclared loop variable Date: Sun, 07 Apr 2013 11:48:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Keywords: error-recovery, ice-on-invalid-code X-Bugzilla-Severity: minor X-Bugzilla-Who: mikael at gcc dot gnu.org X-Bugzilla-Status: NEW X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Changed-Fields: CC Message-ID: In-Reply-To: References: X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated Content-Type: text/plain; charset="UTF-8" MIME-Version: 1.0 X-SW-Source: 2013-04/txt/msg00548.txt.bz2 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56852 Mikael Morin changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |mikael at gcc dot gnu.org --- Comment #3 from Mikael Morin 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);