https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104573
Bug ID: 104573 Summary: ICE in resolve_structure_cons, at fortran/resolve.cc:1299 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 : (gcc configured with --enable-checking=yes) $ cat z1.f90 program p type t end type type(*), parameter :: x = t() print *, x end $ cat z2.f90 program p type t integer :: n end type type(*), parameter :: x = t(1) print *, x end $ gfortran-12-20220213 -c z1.f90 z1.f90:4:26: 4 | type(*), parameter :: x = t() | 1 Error: Assumed type of variable x at (1) is only permitted for dummy variables z1.f90:4:28: 4 | type(*), parameter :: x = t() | 1 Error: Cannot convert TYPE(t) to TYPE(*) at (1) f951: internal compiler error: Segmentation fault 0xe7073f crash_signal ../../gcc/toplev.cc:322 0x7b30e4 resolve_structure_cons ../../gcc/fortran/resolve.cc:1299 0x7a0c91 gfc_resolve_expr(gfc_expr*) ../../gcc/fortran/resolve.cc:7228 0x7a9324 gfc_resolve_expr(gfc_expr*) ../../gcc/fortran/resolve.cc:7136 0x7a9324 gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:11927 0x7a7cdf gfc_resolve_blocks(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:10943 0x7a8038 gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:11917 0x7aa977 resolve_codes ../../gcc/fortran/resolve.cc:17536 0x7aaa3e gfc_resolve(gfc_namespace*) ../../gcc/fortran/resolve.cc:17571 0x792d64 resolve_all_program_units ../../gcc/fortran/parse.cc:6586 0x792d64 gfc_parse_file() ../../gcc/fortran/parse.cc:6842 0x7e102f gfc_be_parse_file ../../gcc/fortran/f95-lang.cc:216