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) call abort 23end 24