4 integer :: i, j, k, m, n
11 !$omp parallel private (k) firstprivate (i) shared (j) num_threads (2) &
12 !$omp& reduction (.or.:l)
16 k = omp_get_thread_num ()
23 if (i .ne. 4 .or. j .ne. 15) l = .true.
28 if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true.
31 if (j .ne. 25) call abort