1! PR middle-end/28790
2! { dg-do run }
3
4program nestomp
5  integer :: j
6  j = 8
7  call bar
8  if (j.ne.10) call abort
9contains
10  subroutine foo (i)
11    integer :: i
12  !$omp atomic
13    j = j + i - 5
14  end subroutine
15  subroutine bar
16  use omp_lib
17  integer :: i
18  i = 6
19  call omp_set_dynamic (.false.)
20  !$omp parallel num_threads (2)
21    call foo(i)
22  !$omp end parallel
23  end subroutine
24end
25