Subversion Repositories openrisc

! PR fortran/48894

! { dg-do run }

! { dg-options "-fdefault-integer-8" }

  use omp_lib

  integer, parameter :: zero = 0

  integer :: err

  logical :: l

  err = 0

  !$omp parallel

    !$omp parallel private (l)

      l = omp_get_ancestor_thread_num (-HUGE (zero)) .ne. -1

      l = l .or. (omp_get_ancestor_thread_num (HUGE (zero)) .ne. -1)

      l = l .or. (omp_get_team_size (-HUGE (zero)) .ne. -1)

      l = l .or. (omp_get_team_size (HUGE (zero)) .ne. -1)

      if (l) then

        !$omp atomic

          err = err + 1

      endif

    !$omp end parallel

  !$omp end parallel

  if (err .ne. 0) call abort

end