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

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

An invalid example, with uninitialized parameter n :


$ cat z2.f90
program p
   character(*), parameter :: z(2) = [character(n) :: 'x', 'y']
end


$ gfortran-7-20161106 -fimplicit-none z2.f90
f951: internal compiler error: Segmentation fault
0xc3a64f crash_signal
        ../../gcc/toplev.c:338
0x6790df char_len_param_value
        ../../gcc/fortran/decl.c:926
0x67b1a4 gfc_match_char_spec(gfc_typespec*)
        ../../gcc/fortran/decl.c:2847
0x6badcd gfc_match_type_spec(gfc_typespec*)
        ../../gcc/fortran/match.c:2051
0x662e89 gfc_match_array_constructor(gfc_expr**)
        ../../gcc/fortran/array.c:1123
0x6bfc79 match_primary
        ../../gcc/fortran/matchexp.c:153
0x6bfc79 match_level_1
        ../../gcc/fortran/matchexp.c:211
0x6bfc79 match_mult_operand
        ../../gcc/fortran/matchexp.c:267
0x6bfed8 match_add_operand
        ../../gcc/fortran/matchexp.c:356
0x6c016c match_level_2
        ../../gcc/fortran/matchexp.c:480
0x6c02c2 match_level_3
        ../../gcc/fortran/matchexp.c:551
0x6c03d4 match_level_4
        ../../gcc/fortran/matchexp.c:599
0x6c03d4 match_and_operand
        ../../gcc/fortran/matchexp.c:693
0x6c0592 match_or_operand
        ../../gcc/fortran/matchexp.c:722
0x6c0682 match_equiv_operand
        ../../gcc/fortran/matchexp.c:765
0x6c0772 match_level_5
        ../../gcc/fortran/matchexp.c:811
0x6bfae1 gfc_match_expr(gfc_expr**)
        ../../gcc/fortran/matchexp.c:870
0x691292 gfc_match_init_expr(gfc_expr**)
        ../../gcc/fortran/expr.c:2702
0x682784 variable_decl
        ../../gcc/fortran/decl.c:2391
0x682784 gfc_match_data_decl()
        ../../gcc/fortran/decl.c:4891