8 if (a
.ne
. 7) call abort
14 !$omp parallel shared (a) private (b) firstprivate (c) &
15 !$omp num_threads (2) reduction (.or.:l)
16 if (a
.ne
. 1 .or
. c
.ne
. 3) l
= .true
.
18 if (omp_get_thread_num () .eq
. 0) then
24 if (omp_get_thread_num () .eq
. 1) then
25 if (a
.ne
. 4 .or
. c
.ne
. 3) l
= .true
.
29 else if (omp_get_num_threads () .eq
. 1) then
33 if (omp_get_thread_num () .eq
. 0) then
34 if (a
.ne
. 7 .or
. b
.ne
. 5 .or
. c
.ne
. 6) l
= .true
.
37 if (omp_get_thread_num () .eq
. 1) then
38 if (a
.ne
. 7 .or
. b
.ne
. 8 .or
. c
.ne
. 9) l
= .true
.