gcc/testsuite/gfortran.dg/class_array_5.f03

! { dg-do compile }
! PR44568 - class array impelementation.
!
! Contributed by Hans-Werner Boschmann
!
module ice6

  type::a_type
   contains
     procedure::do_something
  end type a_type

  contains

  subroutine do_something(this)
    class(a_type),intent(in)::this
  end subroutine do_something

  subroutine do_something_else()
    class(a_type),dimension(:),allocatable::values
    call values(1)%do_something()
  end subroutine do_something_else

end module ice6