gcc/testsuite/gfortran.dg/class_array_11.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/46356
   4 ! This program was leading to an ICE related to class arrays
   5 !
   6 ! Original testcase by Ian Harvey <ian_harvey@bigpond.com>
   7 ! Reduced by Janus Weil <Janus@gcc.gnu.org>
   8
   9   IMPLICIT NONE
  10
  11   TYPE :: ParentVector
  12     INTEGER :: a
  13   END TYPE ParentVector
  14
  15 CONTAINS
  16
  17   SUBROUTINE vector_operation(pvec)
  18     CLASS(ParentVector), INTENT(INOUT) :: pvec(:)
  19     print *,pvec(1)%a
  20   END SUBROUTINE
  21
  22 END
  23