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