Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/depend-3.f90 @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 84e7813d76e9 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do run } integer :: x(2, 3) integer, allocatable :: z(:, :) allocate (z(-2:3, 2:4)) call foo (x, z) contains subroutine foo (x, z) integer :: x(:, :), y integer, allocatable :: z(:, :) y = 1 !$omp parallel shared (x, y, z) !$omp single !$omp taskgroup !$omp task depend(in: x) if (y.ne.1) STOP 1 !$omp end task !$omp task depend(out: x(1:2, 1:3)) y = 2 !$omp end task !$omp end taskgroup !$omp taskgroup !$omp task depend(in: z) if (y.ne.2) STOP 2 !$omp end task !$omp task depend(out: z(-2:3, 2:4)) y = 3 !$omp end task !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x) if (y.ne.3) STOP 3 !$omp end task !$omp task depend(out: x(1:, 1:)) y = 4 !$omp end task !$omp end taskgroup !$omp end single !$omp end parallel if (y.ne.4) STOP 4 end subroutine end