2018-03-25 Thomas Koenig <tkoenig@gcc.gnu.org>

[official-gcc.git] / libgomp / testsuite / libgomp.fortran / examples-4 / task_dep-3.f90

! { dg-do run }

program example
   integer :: x
   x = 0
   !$omp parallel
   !$omp single
      !$omp task shared(x) depend(out: x)
         x = 1
      !$omp end task
      !$omp task shared(x) depend(out: x)
         x = 2
      !$omp end task
      !$omp taskwait
      if ((x .ne. 1) .and. (x .ne. 2)) STOP 1
   !$omp end single
   !$omp end parallel
end program