1! PR middle-end/33880 2! { dg-do run } 3 4program pr33880 5 integer :: i, j 6 call something () 7 !$omp parallel do 8 do i = 1, 1000 9 !$omp atomic 10 j = j + 1 11 end do 12 if (j .ne. 1000) STOP 1 13contains 14 subroutine something() 15 i = 0 16 j = 0 17 end subroutine something 18end program pr33880 19