! { dg-do compile } | |
! | |
! Tests the fix for PR82077 | |
! | |
! Contributed by Damian Rouson <damian@sourceryinstitute.org> | |
! | |
type parent | |
end type parent | |
type, extends(parent) :: child | |
end type | |
class(parent), allocatable :: foo(:,:) | |
allocate(child::foo(1,1)) | |
select type(foo) | |
class is (child) | |
call gfortran7_ICE(foo(1,:)) ! ICEd here. | |
end select | |
contains | |
subroutine gfortran7_ICE(bar) | |
class(child) bar(:) | |
end subroutine | |
end |