| 1234567891011121314151617181920212223242526272829 |
- ! { dg-do run }
- ! { dg-options "-fopenmp -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
|
