[Bug fortran/27457] New: ICE in match_case_eos()

["aldot at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

$ cat ICE_match_case_eos_1.f
! { dg-do compile }
! { dg-options "-std=gnu" }
! PR fortran
        implicit none
        integer(kind=1) :: i
        real :: r(3)
        select case (i)
        case (129) r(4) = 0
        end select
        end
(gdb) set args ICE_match_case_eos_1.f -ffixed-form -quiet -dumpbase
ICE_match_case_eos_1.f -mtune=generic -auxbase ICE_match_case_eos_1
-version -I /opt/gcc-4.2/bin/../lib/gcc/i686-linux-gnu/4.2.0/finclude -o
/tmp/ccO1JXYy.s
(gdb) run
Starting program: /opt/gcc-4.2/lib/gcc/i686-linux-gnu/4.2.0/f951
ICE_match_case_eos_1.f -ffixed-form -quiet -dumpbase
ICE_match_case_eos_1.f -mtune=generic -auxbase ICE_match_case_eos_1
-version -I /opt/gcc-4.2/bin/../lib/gcc/i686-linux-gnu/4.2.0/finclude -o
/tmp/ccO1JXYy.s
GNU F95 version 4.2.0 20060424 (experimental) (i686-linux-gnu)
        compiled by GNU C version 4.2.0 20060424 (experimental).
GGC heuristics: --param ggc-min-expand=94 --param
ggc-min-heapsize=121309

Program received signal SIGSEGV, Segmentation fault.
0x08077988 in match_case_eos () at
../../../src/gcc-4.2/gcc/fortran/match.c:3033
3033    ../../../src/gcc-4.2/gcc/fortran/match.c: No such file or
directory.
        in ../../../src/gcc-4.2/gcc/fortran/match.c
(gdb) bt
#0  0x08077988 in match_case_eos () at
../../../src/gcc-4.2/gcc/fortran/match.c:3033
#1  0x0807896c in gfc_match_case () at
../../../src/gcc-4.2/gcc/fortran/match.c:3119
#2  0x080830da in match_word (str=0x0, subr=0x80787a0 <gfc_match_case>,
old_locus=0xbfc33a88) at ../../../src/gcc-4.2/gcc/fortran/parse.c:65
#3  0x08083c7a in decode_statement () at
../../../src/gcc-4.2/gcc/fortran/parse.c:192
#4  0x08083ff8 in next_statement () at
../../../src/gcc-4.2/gcc/fortran/parse.c:476
#5  0x08085290 in parse_executable (st=<value optimized out>) at
../../../src/gcc-4.2/gcc/fortran/parse.c:2116
#6  0x08086177 in parse_progunit (st=ST_ARITHMETIC_IF) at
../../../src/gcc-4.2/gcc/fortran/parse.c:2866
#7  0x08086621 in gfc_parse_file () at
../../../src/gcc-4.2/gcc/fortran/parse.c:3182
#8  0x080a5e3d in gfc_be_parse_file (set_yydebug=0) at
../../../src/gcc-4.2/gcc/fortran/f95-lang.c:301
#9  0x082fb06a in toplev_main (argc=14, argv=0xbfc33ca4) at
../../../src/gcc-4.2/gcc/toplev.c:999
#10 0x080ce736 in main (argc=Cannot access memory at address 0x0
) at ../../../src/gcc-4.2/gcc/main.c:35


-- 
           Summary: ICE in match_case_eos()
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code, error-recovery
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: aldot at gcc dot gnu dot org
 BugsThisDependsOn: 19292


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