5 integer (omp_sched_kind
) :: kind
7 call omp_set_schedule (omp_sched_static
, 32)
8 call omp_get_schedule (kind
, modifier
)
9 if (kind
.ne
.omp_sched_static
.or
.modifier
.ne
.32) STOP 1
10 call omp_set_schedule (omp_sched_dynamic
, 4)
11 call omp_get_schedule (kind
, modifier
)
12 if (kind
.ne
.omp_sched_dynamic
.or
.modifier
.ne
.4) STOP 2
13 if (omp_get_thread_limit ().lt
.0) STOP 3
14 call omp_set_max_active_levels (6)
15 if (omp_get_max_active_levels ().ne
.6) STOP 4