[Bug fortran/66175] New: ICE in gfc_free_namespace with unbalanced BLOCKs

[Bug fortran/66175] New: ICE in gfc_free_namespace with unbalanced BLOCKs

[tkoenig at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66175

            Bug ID: 66175
           Summary: ICE in gfc_free_namespace with unbalanced BLOCKs
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: tkoenig at gcc dot gnu.org
  Target Milestone: ---

ig25@linux-fd1f:~/Krempel/Block> cat ice.f90
program main
  integer :: n
  n = 3
  block
    block
      print *,n
end program main
ig25@linux-fd1f:~/Krempel/Block> gfortran ice.f90
ice.f90:7:3:

 end program main
   1
Error: Expecting END BLOCK statement at (1)
f951: Error: Unexpected end of file in »ice.f90«
f951: internal compiler error: in gfc_free_namespace, bei fortran/symbol.c:3525
0x6b2f07 gfc_free_namespace(gfc_namespace*)
        ../../trunk/gcc/fortran/symbol.c:3525
0x6ad2d3 gfc_free_statement(gfc_code*)
        ../../trunk/gcc/fortran/st.c:124
0x6ad3c9 gfc_free_statements(gfc_code*)
        ../../trunk/gcc/fortran/st.c:272
0x6b2dc8 gfc_free_namespace(gfc_namespace*)
        ../../trunk/gcc/fortran/symbol.c:3527
0x6b33dc gfc_symbol_done_2()
        ../../trunk/gcc/fortran/symbol.c:3573
0x663b88 gfc_done_2()
        ../../trunk/gcc/fortran/misc.c:258
0x677ab5 unexpected_eof
        ../../trunk/gcc/fortran/parse.c:2463
0x67eb24 parse_critical_block
        ../../trunk/gcc/fortran/parse.c:3845
0x67eb24 parse_executable
        ../../trunk/gcc/fortran/parse.c:4671
0x67fb16 parse_progunit
        ../../trunk/gcc/fortran/parse.c:4978
0x67ef33 parse_block_construct
        ../../trunk/gcc/fortran/parse.c:3931
0x67ef33 parse_executable
        ../../trunk/gcc/fortran/parse.c:4645
0x67fb16 parse_progunit
        ../../trunk/gcc/fortran/parse.c:4978
0x67ef33 parse_block_construct
        ../../trunk/gcc/fortran/parse.c:3931
0x67ef33 parse_executable
        ../../trunk/gcc/fortran/parse.c:4645
0x67fb16 parse_progunit
        ../../trunk/gcc/fortran/parse.c:4978
0x681267 gfc_parse_file()
        ../../trunk/gcc/fortran/parse.c:5426
0x6c1535 gfc_be_parse_file
        ../../trunk/gcc/fortran/f95-lang.c:228
>From gcc-bugs-return-486427-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org Sat May 16 09:54:11 2015
Return-Path: <gcc-bugs-return-486427-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Delivered-To: listarch-gcc-bugs@gcc.gnu.org
Received: (qmail 120551 invoked by alias); 16 May 2015 09:54:11 -0000
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
Delivered-To: mailing list gcc-bugs@gcc.gnu.org
Received: (qmail 120512 invoked by uid 48); 16 May 2015 09:54:07 -0000
From: "ebotcazou at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug ada/66162] Bug box compiling Ada.Finalization with -gnatc
Date: Sat, 16 May 2015 09:54:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: ada
X-Bugzilla-Version: 5.1.0
X-Bugzilla-Keywords:
X-Bugzilla-Severity: normal
X-Bugzilla-Who: ebotcazou at gcc dot gnu.org
X-Bugzilla-Status: SUSPENDED
X-Bugzilla-Resolution:
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags:
X-Bugzilla-Changed-Fields: bug_status cf_reconfirmed_on cc everconfirmed
Message-ID: <bug-66162-4-F9aW2lsJTK@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-66162-4@http.gcc.gnu.org/bugzilla/>
References: <bug-66162-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: 7bit
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-SW-Source: 2015-05/txt/msg01267.txt.bz2
Content-length: 617

https://gcc.gnu.org/bugzilla/show_bug.cgi?idf162

Eric Botcazou <ebotcazou at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |SUSPENDED
   Last reconfirmed|                            |2015-05-16
                 CC|                            |ebotcazou at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
Why on Earth are you doing this?  No plan to look into it.

[Bug fortran/66175] ICE in gfc_free_namespace with unbalanced BLOCKs

[t56xjcu6dh at snkmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66175

Louis Krupp <t56xjcu6dh at snkmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |t56xjcu6dh at snkmail dot com

--- Comment #1 from Louis Krupp <t56xjcu6dh at snkmail dot com> ---
Created attachment 35979
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35979&action=edit
Suggested patch for 66175

Recovery from nested incomplete BLOCKs

[Bug fortran/66175] ICE in gfc_free_namespace with unbalanced BLOCKs

[fxcoudert at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66175

--- Comment #2 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
Author: fxcoudert
Date: Mon Aug 24 16:29:59 2015
New Revision: 227135

URL: https://gcc.gnu.org/viewcvs?rev=227135&root=gcc&view=rev
Log:
        PR fortran/62536
        PR fortran/66175

        * decl.c (gfc_match_end): Clean up nested BLOCKs.
        * parse.c (parse_block_construct): Deal gracefully with cleaned-up
        BLOCKs.

        * gfortran.dg/block_end_error_1.f90: New test.
        * gfortran.dg/blocks_nested_incomplete_1.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/block_end_error_1.f90
    trunk/gcc/testsuite/gfortran.dg/blocks_nested_incomplete_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/fortran/parse.c
    trunk/gcc/testsuite/ChangeLog

[Bug fortran/66175] ICE in gfc_free_namespace with unbalanced BLOCKs

[fxcoudert at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66175

Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
                 CC|                            |fxcoudert at gcc dot gnu.org
         Resolution|---                         |FIXED
   Target Milestone|---                         |6.0

--- Comment #3 from Francois-Xavier Coudert <fxcoudert at gcc dot gnu.org> ---
Fixed on trunk.