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