1! PR fortran/48894
2! { dg-do run }
3! { dg-options "-fdefault-integer-8" }
4
5  use omp_lib
6  integer, parameter :: zero = 0
7  integer :: err
8  logical :: l
9  err = 0
10  !$omp parallel
11    !$omp parallel private (l)
12      l = omp_get_ancestor_thread_num (-HUGE (zero)) .ne. -1
13      l = l .or. (omp_get_ancestor_thread_num (HUGE (zero)) .ne. -1)
14      l = l .or. (omp_get_team_size (-HUGE (zero)) .ne. -1)
15      l = l .or. (omp_get_team_size (HUGE (zero)) .ne. -1)
16      if (l) then
17        !$omp atomic
18          err = err + 1
19      endif
20    !$omp end parallel
21  !$omp end parallel
22  if (err .ne. 0) stop 1
23end
24