4 integer, allocatable
:: z(:, :)
5 allocate (z(-2:3, 2:4))
10 integer, allocatable
:: z(:, :)
12 !$omp parallel shared (x, y, z)
15 !$omp task depend(in: x)
16 if (y
.ne
.1) call abort
18 !$omp task depend(out: x(1:2, 1:3))
23 !$omp task depend(in: z)
24 if (y
.ne
.2) call abort
26 !$omp task depend(out: z(-2:3, 2:4))
31 !$omp task depend(in: x)
32 if (y
.ne
.3) call abort
34 !$omp task depend(out: x(1:, 1:))
40 if (y
.ne
.4) call abort