Subversion Repositories openrisc

! { dg-do run }

! { dg-options "-fopenmp -fcheck=recursion" }

!

! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion

!

! Contributed by Janus Weil 

implicit none

integer :: i,s

s=0

!$omp parallel do private(i) shared(s)

do i=1,10

  call sub(i)

end do

!$omp end parallel do

if (s/=55) call abort()

contains

  subroutine sub (n)

    integer :: n

!$omp atomic

    s = s + n

    print '(A,i3)',"loop =",n

  end subroutine

end