https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84245
Bug ID: 84245
Summary: [7/8 Regression] ICE in delete_root, at
fortran/bbt.c:150
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Changed between 20161023 and 20161030 :
$ cat z1.f90
program p
select type (x%a)
end select
end
$ cat z2.f90
program p
select type (x%
end select
end
$ gfortran-7-20161023 -c z1.f90
z1.f90:2:18:
select type (x%a)
1
Error: Symbol 'x' at (1) has no IMPLICIT type
z1.f90:3:6:
end select
1
Error: Expecting END PROGRAM statement at (1)
$ gfortran-8-20180204 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb953ff crash_signal
../../gcc/toplev.c:325
0x67b0bb delete_root
../../gcc/fortran/bbt.c:150
0x67b28e gfc_delete_bbt(void*, void*, int (*)(void*, void*))
../../gcc/fortran/bbt.c:197
0x737048 gfc_delete_symtree(gfc_symtree**, char const*)
../../gcc/fortran/symbol.c:2925
0x738816 gfc_restore_last_undo_checkpoint()
../../gcc/fortran/symbol.c:3694
0x6f5347 reject_statement
../../gcc/fortran/parse.c:2565
0x6f545c match_word_omp_simd
../../gcc/fortran/parse.c:98
0x6f8e0a match_word
../../gcc/fortran/parse.c:428
0x6f8e0a decode_statement
../../gcc/fortran/parse.c:428
0x6faa54 next_free
../../gcc/fortran/parse.c:1230
0x6faa54 next_statement
../../gcc/fortran/parse.c:1462
0x6fc86c parse_spec
../../gcc/fortran/parse.c:3670
0x6fe833 parse_progunit
../../gcc/fortran/parse.c:5667
0x6ffe14 gfc_parse_file()
../../gcc/fortran/parse.c:6207
0x74686f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
