Subversion Repositories openrisc

! { dg-do run }

! PR43214 - implementation of class arrays

!

! Contributed by Tobias Burnus  

!

module m

  type t

    real :: r = 99

  contains

    procedure, pass :: foo => foo

  end type t

contains

  elemental subroutine foo(x, i)

    class(t),intent(in) :: x

    integer,intent(inout) :: i

    i = x%r + i

  end subroutine foo

end module m

  use m

  type(t) :: x(3)

  integer :: n(3) = [0,100,200]

  call x(:)%foo(n)

  if (any(n .ne. [99,199,299])) call abort

end

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