[Bug fortran/98638] [11 Regression] ICE: Segmentation fault (in lookup_page_table_entry) since r11-6411-gae99b315ba5b9e1c

[marxin at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #3 from Martin Liška <marxin at gcc dot gnu.org> ---
Reduced test-case:

module shape_mod
  type rectangle
     end type 
  type, extends (rectangle) :: square
     real, allocatable :: r(:)
  end type 
end  
use shape_mod
  logical results(8)
  class(rectangle),allocatable :: r
  class(rectangle),allocatable :: r2
  allocatable rr(:)
  select type(o=>r)
  class is (square)
     allocate(rr,source=o%r)
     select type(r2)
     class is (square)
        results = or .eq. rr
     end select
  end select
end