Subversion Repositories openrisc

! { dg-do run }

! PR 22607: PURE return-by-reference functions

program main

  implicit none

  integer, dimension(2) :: b

  b = fun(size(b))

  if (b(1) /= 1 .or. b(2) /= 2) call abort()

contains

  pure function fun(n)

    integer, intent(in) :: n

    integer :: fun(n)

    integer :: i

    do i = 1, n

        fun(i) = i

    end do

  end function fun

end program main