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