! { dg-do run } | |
! { dg-options "-fcheck=recursion" } | |
! | |
! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion | |
! | |
! Contributed by Janus Weil <janus@gcc.gnu.org> | |
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 |