mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
33 lines
770 B
Fortran
33 lines
770 B
Fortran
! @@name: acquire_release.3.f90
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@linkable: yes
|
|
! @@expect: success
|
|
! @@version: omp_5.0
|
|
|
|
program rel_acq_ex3
|
|
use omp_lib
|
|
integer :: x, y, thrd, tmp
|
|
x = 0
|
|
y = 0
|
|
!$omp parallel num_threads(2) private(thrd, tmp)
|
|
thrd = omp_get_thread_num()
|
|
if (thrd == 0) then
|
|
x = 10
|
|
!$omp flush ! or with acq_rel or release clause
|
|
!$omp atomic write
|
|
y = 1
|
|
!$omp end atomic
|
|
else
|
|
tmp = 0
|
|
do while (tmp == 0)
|
|
!$omp atomic read
|
|
tmp = y
|
|
!$omp end atomic
|
|
end do
|
|
!$omp flush ! or with acq_rel or acquire clause
|
|
print *, "x = ", x !! always "x = 10"
|
|
end if
|
|
!$omp end parallel
|
|
end program
|