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