[Bug fortran/78239] [5/6/7 Regression] ICE in char_len_param_value, at fortran/decl.c:926, with -fimplicit-none

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

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |janus at gcc dot gnu.org

--- Comment #8 from janus at gcc dot gnu.org ---
(In reply to Dominique d'Humieres from comment #7)
> > URL: https://gcc.gnu.org/viewcvs?rev=243773&root=gcc&view=rev
> > ...
> 
> The two tests give an ICE: see
> https://gcc.gnu.org/ml/gcc-testresults/2016-12/msg01810.html.

I also see both ICEs here:

$ gfortran-7 fimplicit_none_1.f90 -fimplicit-none
f951: internal compiler error: Segmentation fault
0xfdc762 crash_signal
        /home/jweil/gcc/trunk/gcc/toplev.c:333
0x7c3ee1 char_len_param_value
        /home/jweil/gcc/trunk/gcc/fortran/decl.c:926
0x7c7e4f gfc_match_char_spec(gfc_typespec*)
        /home/jweil/gcc/trunk/gcc/fortran/decl.c:2850
0x7c84f3 gfc_match_decl_type_spec(gfc_typespec*, int)
        /home/jweil/gcc/trunk/gcc/fortran/decl.c:3058
0x7cb8ca gfc_match_data_decl()
        /home/jweil/gcc/trunk/gcc/fortran/decl.c:4820
0x852caa match_word
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:65
0x8538b2 decode_statement
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:376
0x8581fa next_free
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:1179
0x8587fd next_statement
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:1411
0x85b95f parse_spec
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:3599
0x85ea78 parse_progunit
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:5585
0x85f96c gfc_parse_file()
        /home/jweil/gcc/trunk/gcc/fortran/parse.c:6101
0x8b90cd gfc_be_parse_file
        /home/jweil/gcc/trunk/gcc/fortran/f95-lang.c:202