1! { dg-do run }
2
3program example
4   integer :: x
5   x = 0
6   !$omp parallel
7   !$omp single
8      !$omp task shared(x) depend(out: x)
9         x = 1
10      !$omp end task
11      !$omp task shared(x) depend(out: x)
12         x = 2
13      !$omp end task
14      !$omp taskwait
15      if ((x .ne. 1) .and. (x .ne. 2)) stop 1
16   !$omp end single
17   !$omp end parallel
18end program
19