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