https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96099
Bug ID: 96099 Summary: ICE in gfc_validate_kind, at fortran/trans-types.c:773 Product: gcc Version: 11.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gs...@t-online.de Target Milestone: --- Follow-up of pr95586 : $ cat z1.f90 program p implicit type(t) (1) type t end type end $ cat z2.f90 program p integer n1 parameter (n1 = 1) implicit type(t) (n1) type t end type end $ gfortran-11-20200705 -c z1.f90 f951: internal compiler error: gfc_validate_kind(): Got bad type 0x6584b9 gfc_report_diagnostic ../../gcc/fortran/error.c:782 0x659bda gfc_internal_error(char const*, ...) ../../gcc/fortran/error.c:1402 0x781447 gfc_validate_kind(bt, int, bool) ../../gcc/fortran/trans-types.c:773 0x642f21 gfc_match_kind_spec(gfc_typespec*, bool) ../../gcc/fortran/decl.c:3191 0x64a2e2 gfc_match_implicit() ../../gcc/fortran/decl.c:4834 0x6abd31 match_word ../../gcc/fortran/parse.c:65 0x6aff19 decode_statement ../../gcc/fortran/parse.c:508 0x6b0b6a next_free ../../gcc/fortran/parse.c:1280 0x6b0b6a next_statement ../../gcc/fortran/parse.c:1512 0x6b2f14 parse_spec ../../gcc/fortran/parse.c:3739 0x6b4f8c parse_progunit ../../gcc/fortran/parse.c:5852 0x6b6669 gfc_parse_file() ../../gcc/fortran/parse.c:6393 0x70284f gfc_be_parse_file ../../gcc/fortran/f95-lang.c:212