Subversion Repositories openrisc

! PR middle-end/28790

! PR middle-end/28790

! { dg-do run }

! { dg-do run }

program nestomp

program nestomp

  integer :: j

  integer :: j

  j = 8

  j = 8

  call bar

  call bar

  if (j.ne.10) call abort

  if (j.ne.10) call abort

contains

contains

  subroutine foo (i)

  subroutine foo (i)

    integer :: i

    integer :: i

  !$omp atomic

  !$omp atomic

    j = j + i - 5

    j = j + i - 5

  end subroutine

  end subroutine

  subroutine bar

  subroutine bar

  use omp_lib

  use omp_lib

  integer :: i

  integer :: i

  i = 6

  i = 6

  call omp_set_dynamic (.false.)

  call omp_set_dynamic (.false.)

  !$omp parallel num_threads (2)

  !$omp parallel num_threads (2)

    call foo(i)

    call foo(i)

  !$omp end parallel

  !$omp end parallel

  end subroutine

  end subroutine

end

end