Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "ice6" } }