3 integer :: a(10), c(10)
9 if (a(i
) .ne
. 10 * i
) call abort
11 !$omp parallel do reduction (+:c)
16 if (c(i
) .ne
. 10 * a(i
)) call abort
18 !$omp parallel do lastprivate (j)
21 if (j
.ne
. 11) call abort
30 !$omp parallel do reduction (+:a)
36 !$omp parallel do lastprivate (j)
39 if (j
.ne
. 11) call abort