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