blob: a12998db1e441d50ec9d95d5a2760a7eb041d9da [file] [log] [blame]
! { 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