gcc/testsuite/gfortran.dg/select_type_45.f90

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