3 !$omp teams thread_limit (2)
4 if (omp_in_parallel ()) stop 1
5 if (omp_get_level () .ne
. 0) stop 2
6 if (omp_get_ancestor_thread_num (0) .ne
. 0) stop 3
7 if (omp_get_ancestor_thread_num (1) .ne
. -1) stop 4
8 call omp_set_dynamic (.false
.)
9 call omp_set_nested (.true
.)
10 !$omp parallel num_threads (2)
11 if (.not
. omp_in_parallel ()) stop 5
12 if (omp_get_level () .ne
. 1) stop 6
13 if (omp_get_ancestor_thread_num (0) .ne
. 0) stop 7
14 if (omp_get_ancestor_thread_num (1) &
15 & .ne
. omp_get_thread_num ()) stop 8
16 if (omp_get_ancestor_thread_num (2) .ne
. -1) stop 9