gcc/testsuite/gfortran.dg/select_type_46.f90

   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
  17 contains
  18     subroutine gfortran7_ICE(bar)
  19       class(child) bar(:)
  20     end subroutine
  21 end