3 ! { dg-options "-fdefault-integer-8" }
6 integer, parameter :: zero
= 0
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)
22 if (err
.ne
. 0) stop 1