3 integer :: x(3:6, 7:12), y
5 !$omp parallel shared (x, y)
8 !$omp task depend(in: x(:, :))
11 !$omp task depend(out: x(:, :))
16 !$omp task depend(in: x(4, 7))
17 if (y
.ne
.2) call abort
19 !$omp task depend(out: x(4:4, 7:7))
24 !$omp task depend(in: x(4:, 8:))
25 if (y
.ne
.3) call abort
27 !$omp task depend(out: x(4:6, 8:12))
33 if (y
.ne
.4) call abort