10 !$omp parallel private (k) firstprivate (i) shared (j) num_threads (2) &
11 !$omp& reduction (.or.:l)
12 if (i
.ne
. 4 .or
. j
.ne
. 8) l
= .true
.
14 k
= omp_get_thread_num ()
21 if (i
.ne
. 4 .or
. j
.ne
. 15) l
= .true
.
26 if (j
.ne
. 25 .or
. i
.ne
. (k
* 10 + 14)) l
= .true
.
28 if (l
.or
. j
.ne
. 25) stop 1