https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87566
Bug ID: 87566
Summary: ICE with class(*) and select
Product: gcc
Version: 8.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: antony at cosmologist dot info
Target Milestone: ---
Created attachment 44818
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=44818&action=edit
Full test case
Segmentation fault ICE compiling with 6.4. 7.3 or 8.2.0.
subroutine AddArray()
type Object_array_pointer
class(*), pointer :: p(:) => null()
end type Object_array_pointer
class(*), pointer :: Pt => null()
select type (Pt)
class is (object_array_pointer)
select type (Point=> Pt%P)
end select
end select
end subroutine AddArray
