|
! { dg-do run }
|
|
|
|
program example
|
|
integer :: x
|
|
x = 1
|
|
!$omp parallel
|
|
!$omp single
|
|
!$omp task shared(x) depend(in: x)
|
|
if (x .ne. 1) call abort ()
|
|
!$omp end task
|
|
!$omp task shared(x) depend(out: x)
|
|
x = 2
|
|
!$omp end task
|
|
!$omp end single
|
|
!$omp end parallel
|
|
end program
|