mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-01 11:52:47 +00:00
19 lines
375 B
Fortran
19 lines
375 B
Fortran
|
! { dg-do run }
|
||
|
|
|
||
|
|
program example
|
||
|
|
integer :: x
|
||
|
|
x = 0
|
||
|
|
!$omp parallel
|
||
|
|
!$omp single
|
||
|
|
!$omp task shared(x) depend(out: x)
|
||
|
|
x = 1
|
||
|
|
!$omp end task
|
||
|
|
!$omp task shared(x) depend(out: x)
|
||
|
|
x = 2
|
||
|
|
!$omp end task
|
||
|
|
!$omp taskwait
|
||
|
|
if ((x .ne. 1) .and. (x .ne. 2)) call abort()
|
||
|
|
!$omp end single
|
||
|
|
!$omp end parallel
|
||
|
|
end program
|