https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89069
Bug ID: 89069
Summary: ICE in select type with function returning class array
pointer
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: antony at cosmologist dot info
Target Milestone: ---
Follow up to https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87566, seg fault ICE
with gfortran 6.5-9.0
module test
contains
function getP()
class(*), pointer :: getP(:)
end function getP
subroutine SegFaulter()
class(*), pointer :: Pt => null()
select type (P=>getP())
type is (real)
end select
end subroutine
end module test
