1! { dg-do compile }
2! PR44568 - class array impelementation.
3!
4! Contributed by Hans-Werner Boschmann
5!
6module 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
24end module ice6
25