[Bug fortran/24640] New: ice with invalid label

["uttamp at us dot ibm dot com" <gcc-bugzilla at gcc dot gnu dot org>]

$ cat test.f90
10: a=10
end

$ gfortran test.f90
In file ice.f90:1

20:        a=10
 1
Warning: Ignoring bad statement label at (1)
ice.f90: In function ?MAIN__?:
ice.f90:1: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

$ gfortran -v
Using built-in specs.
Target: powerpc64-linux
Configured with: /home/gccbuild/gcc_trunk_anonsvn/trunk/configure
--prefix=/opt/gcc-nightly/trunk-20051101 --build=powerpc64-linux
--host=powerpc64-linux --target=powerpc64-linux --with-cpu=default32
--with-as=/opt/gcc-nightly/trunk-20051101/bin/as
--with-ld=/opt/gcc-nightly/trunk-20051101/bin/ld --enable-threads=posix
--enable-shared --enable-__cxa_atexit --enable-languages=c,c++,f95
--enable-checking --with-mpfr=/opt/gcc-nightly/trunk-20051101
Thread model: posix
gcc version 4.1.0 20051101 (experimental)

stack trace shows, 
Program received signal SIGSEGV, Segmentation fault.
0x1006fe18 in gfc_set_decl_location (decl=0x40298700, loc=0x1072fb44)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans-decl.c:226
226       DECL_SOURCE_LINE (decl) = loc->lb->linenum;
(gdb) bt
#0  0x1006fe18 in gfc_set_decl_location (decl=0x40298700, loc=0x1072fb44)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans-decl.c:226
#1  0x10071870 in gfc_get_label_decl (lp=0x1072fb30)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans-decl.c:256
#2  0x1008a188 in gfc_trans_label_here (code=Variable "code" is not available.
)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans-stmt.c:78
#3  0x1006360c in gfc_trans_code (code=0x1074aa18)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans.c:482
#4  0x1007527c in gfc_generate_function_code (ns=0x1074a120)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans-decl.c:2594
#5  0x22000482 in ?? ()
#6  0x10062cd4 in gfc_generate_code (ns=Variable "ns" is not available.
)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/trans.c:659
#7  0x100432c8 in gfc_parse_file ()
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/parse.c:2680
#8  0x100624b4 in gfc_be_parse_file (set_yydebug=Variable "set_yydebug" is not
available.
)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/fortran/f95-lang.c:286
#9  0x10336d6c in toplev_main (argc=Variable "argc" is not available.
)
    at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/toplev.c:990
#10 0x1008e860 in main (argc=Variable "argc" is not available.
) at /home/gccbuild/gcc_trunk_anonsvn/trunk/gcc/main.c:35


-- 
           Summary: ice with invalid label
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: uttamp at us dot ibm dot com
 GCC build triplet: powerpc64-linux
  GCC host triplet: powerpc64-linux
GCC target triplet: powerpc64-linux


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