1! { dg-do compile } 2! 3! Tests the fix for PR82077 4! 5! Contributed by Damian Rouson <damian@sourceryinstitute.org> 6! 7 type parent 8 end type parent 9 type, extends(parent) :: child 10 end type 11 class(parent), allocatable :: foo(:,:) 12 allocate(child::foo(1,1)) 13 select type(foo) 14 class is (child) 15 call gfortran7_ICE(foo(1,:)) ! ICEd here. 16 end select 17contains 18 subroutine gfortran7_ICE(bar) 19 class(child) bar(:) 20 end subroutine 21end 22