Subversion Repositories openrisc

! PR fortran/29629

! { dg-do run }

program pr29629

  integer :: n

  n = 10000

  if (any (func(n).ne.10000)) call abort

  contains

    function func(n)

      integer, intent(in) :: n

      integer, dimension(n) :: func

      integer :: k

      func = 0

!$omp parallel do private(k), reduction(+:func), num_threads(4)

      do k = 1, n

        func = func + 1

      end do

!$omp end parallel do

    end function

end program