OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [class_array_4.f03] - Rev 708

Go to most recent revision | Compare with Previous | Blame | View Log

! { dg-do run }
! PR43214 - implementation of class arrays
!
! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
!
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" } }

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.