https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104625
Bug ID: 104625 Summary: ICE in fixup_array_ref, at fortran/resolve.cc:9275 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: --- Started with r10, changed between 20190825 and 20190901 : (in addition to pr104555) $ cat z1.f90 program p type t integer :: a end type contains subroutine s(x) class(t) :: x(..) select rank (y => x) rank (1) select type (z => (y)) type is (t) end select end select end end $ gfortran-12-20220220 -c z1.f90 f951: internal compiler error: Segmentation fault 0xcc909f crash_signal ../../gcc/toplev.cc:322 0x75b75a fixup_array_ref ../../gcc/fortran/resolve.cc:9275 0x773e24 resolve_select_type ../../gcc/fortran/resolve.cc:9530 0x768f13 gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:12173 0x76af77 resolve_codes ../../gcc/fortran/resolve.cc:17536 0x76b03e gfc_resolve(gfc_namespace*) ../../gcc/fortran/resolve.cc:17571 0x769089 gfc_resolve(gfc_namespace*) ../../gcc/fortran/resolve.cc:17556 0x769089 resolve_block_construct ../../gcc/fortran/resolve.cc:10791 0x769089 gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:12181 0x7682df gfc_resolve_blocks(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:10943 0x76a2cf resolve_select_rank ../../gcc/fortran/resolve.cc:9953 0x76a2cf gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.cc:12177 0x76af77 resolve_codes ../../gcc/fortran/resolve.cc:17536 0x76aeae resolve_codes ../../gcc/fortran/resolve.cc:17519 0x76b03e gfc_resolve(gfc_namespace*) ../../gcc/fortran/resolve.cc:17571 0x753364 resolve_all_program_units ../../gcc/fortran/parse.cc:6586 0x753364 gfc_parse_file() ../../gcc/fortran/parse.cc:6842 0x7a0a5f gfc_be_parse_file ../../gcc/fortran/f95-lang.cc:216