https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103589
Bug ID: 103589 Summary: ICE in gfc_match_varspec, at fortran/primary.c:2551 Product: gcc Version: 12.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gs...@t-online.de Target Milestone: --- Affects versions down to at least r5 : (valid z2 works, but not the stripped one) $ cat z1.f90 integer(size([character::'1'])) :: a end $ cat z2.f90 program p integer(size([character::'1'])) :: a a = 1 end $ gfortran-12-20211205 -c z1.f90 f951: internal compiler error: Segmentation fault 0xd6497f crash_signal ../../gcc/toplev.c:322 0x8383ba gfc_get_default_type(char const*, gfc_namespace*) ../../gcc/fortran/symbol.c:231 0x801b32 gfc_match_varspec(gfc_expr*, int, bool, bool) ../../gcc/fortran/primary.c:2551 0x804100 gfc_match_rvalue(gfc_expr**) ../../gcc/fortran/primary.c:3930 0x7d39be match_primary ../../gcc/fortran/matchexp.c:157 0x7d39be match_level_1 ../../gcc/fortran/matchexp.c:211 0x7d39be match_mult_operand ../../gcc/fortran/matchexp.c:267 0x7d3c08 match_add_operand ../../gcc/fortran/matchexp.c:356 0x7d3e5c match_level_2 ../../gcc/fortran/matchexp.c:480 0x7d3fb2 match_level_3 ../../gcc/fortran/matchexp.c:551 0x7d40a4 match_level_4 ../../gcc/fortran/matchexp.c:599 0x7d40a4 match_and_operand ../../gcc/fortran/matchexp.c:693 0x7d4292 match_or_operand ../../gcc/fortran/matchexp.c:722 0x7d4362 match_equiv_operand ../../gcc/fortran/matchexp.c:765 0x7d4434 match_level_5 ../../gcc/fortran/matchexp.c:811 0x7d3811 gfc_match_expr(gfc_expr**) ../../gcc/fortran/matchexp.c:870 0x7a1f82 gfc_match_init_expr(gfc_expr**) ../../gcc/fortran/expr.c:3189 0x782b05 gfc_match_kind_spec(gfc_typespec*, bool) ../../gcc/fortran/decl.c:3241 0x7893a9 gfc_match_decl_type_spec(gfc_typespec*, int) ../../gcc/fortran/decl.c:4672 0x78a2e2 gfc_match_prefix(gfc_typespec*) ../../gcc/fortran/decl.c:6418