gcc/testsuite/gfortran.dg/class_array_5.f03

   1 ! { dg-do compile }
   2 ! PR44568 - class array impelementation.
   3 !
   4 ! Contributed by Hans-Werner Boschmann
   5 !
   6 module ice6
   7
   8   type::a_type
   9    contains
  10      procedure::do_something
  11   end type a_type
  12
  13   contains
  14
  15   subroutine do_something(this)
  16     class(a_type),intent(in)::this
  17   end subroutine do_something
  18
  19   subroutine do_something_else()
  20     class(a_type),dimension(:),allocatable::values
  21     call values(1)%do_something()
  22   end subroutine do_something_else
  23
  24 end module ice6