1! PR fortran/63938
2! { dg-do run }
3
4program pr63938_1
5 integer :: i, x(1)
6 x(1) = 0
7!$omp parallel do
8 do i = 1, 1000
9 !$omp atomic
10 x(1) = x(1) + 1
11 end do
12!$omp end parallel do
13 if (x(1) .ne. 1000) stop 1
14end program pr63938_1
15