[Bug fortran/82586] ICE: write_symbol(): bad module symbol

["gscfq at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #1 from G. Steinmetz <gscfq@t-online.de> ---

Other invalid snippets :


$ cat z2.f90
program p
   type t(a
      integer, kind :: a
      real(a) :: x
   end type
end


$ cat z3.f90
program p
   type t(a, a)
      integer, kind :: a
      integer, len :: a
   end type
end


$ gfortran-8-20171015 -c z2.f90
f951: internal compiler error: Segmentation fault
0xb5a08f crash_signal
        ../../gcc/toplev.c:326
0x66322b delete_root
        ../../gcc/fortran/bbt.c:150
0x6633fe gfc_delete_bbt(void*, void*, int (*)(void*, void*))
        ../../gcc/fortran/bbt.c:197
0x71b008 gfc_delete_symtree(gfc_symtree**, char const*)
        ../../gcc/fortran/symbol.c:2829
0x71c786 gfc_restore_last_undo_checkpoint()
        ../../gcc/fortran/symbol.c:3598
0x6db9d7 reject_statement
        ../../gcc/fortran/parse.c:2546
0x6dbaec match_word_omp_simd
        ../../gcc/fortran/parse.c:98
0x6dfadb match_word
        ../../gcc/fortran/parse.c:565
0x6dfadb decode_statement
        ../../gcc/fortran/parse.c:565
0x6e0fb4 next_free
        ../../gcc/fortran/parse.c:1225
0x6e0fb4 next_statement
        ../../gcc/fortran/parse.c:1457
0x6e2ddc parse_spec
        ../../gcc/fortran/parse.c:3648
0x6e4d93 parse_progunit
        ../../gcc/fortran/parse.c:5634
0x6e6354 gfc_parse_file()
        ../../gcc/fortran/parse.c:6174
0x72a6bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204