gcc/testsuite/gfortran.dg/class_array_8.f03

   1 ! { dg-do run }
   2 ! PR43969 - class array implementation
   3 !
   4 ! Contributed by Janus Weil  <janus@gcc.gnu.org>
   5 !
   6   implicit none
   7
   8   type indx_map
   9   end type
  10
  11   type desc_type
  12     class(indx_map), allocatable :: indxmap(:)
  13   end type
  14
  15   type(desc_type)  :: desc
  16   if (allocated(desc%indxmap)) call abort()
  17
  18 end