27 !$omp do lastprivate (k)
36 integer :: k
, a(3), b(3), c(3)
41 !$omp parallel num_threads(3)
45 !$omp parallel num_threads(3)
49 !$omp parallel num_threads(3)
52 if (k
.ne
.4.or
.any(a
.ne
.2).or
.any(b
.ne
.3).or
.any(c
.ne
.4)) call abort