5 integer (kind
= omp_nest_lock_kind
) :: lock
9 call omp_init_nest_lock (lock
)
10 !$omp parallel num_threads (1) reduction (.or.:l)
11 if (omp_test_nest_lock (lock
) .ne
. 1) call abort
12 if (omp_test_nest_lock (lock
) .ne
. 2) call abort
13 !$omp task if (.false.) shared (lock, l)
14 if (omp_test_nest_lock (lock
) .ne
. 0) l
= .true
.
17 if (omp_test_nest_lock (lock
) .ne
. 3) l
= .true
.
18 call omp_unset_nest_lock (lock
)
19 call omp_unset_nest_lock (lock
)
20 call omp_unset_nest_lock (lock
)
23 call omp_destroy_nest_lock (lock
)