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