[Bug fortran/108544] New: ICE in check_host_association, at fortran/resolve.cc:6135

[gscfq--- via Gcc-bugs]

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

            Bug ID: 108544
           Summary: ICE in check_host_association, at
                    fortran/resolve.cc:6135
           Product: gcc
           Version: 13.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 :


$ cat z1.f90
module m
   implicit none
contains
   subroutine s
      select type (s => 1)
      end select
   end
end


$ cat z3.f90
module m
contains
   subroutine s
      select type (s => null())
      end select
   end
end


$ cat z4.f90
module m
   type t
   end type
   type(t) :: x
contains
   subroutine s
      select type (s => x)
      end select
   end
end


$ gfortran-13-20230122 -c z1.f90
f951: internal compiler error: Segmentation fault
0xdaa49f crash_signal
        ../../gcc/toplev.cc:314
0x838506 check_host_association
        ../../gcc/fortran/resolve.cc:6135
0x838506 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.cc:7194
0x83fa6c gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.cc:7162
0x83fa6c gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:11982
0x8416a7 resolve_codes
        ../../gcc/fortran/resolve.cc:17629
0x8415de resolve_codes
        ../../gcc/fortran/resolve.cc:17612
0x84176e gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.cc:17664
0x8292d2 gfc_parse_file()
        ../../gcc/fortran/parse.cc:6862
0x8774bf gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:229