mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 08:22:11 +01:00
25 lines
462 B
Fortran
25 lines
462 B
Fortran
! @@name: atomic_restrict.2
|
|
! @@type: F-fixed
|
|
! @@operation: compile
|
|
! @@expect: unspecified
|
|
! @@version: omp_3.1
|
|
SUBROUTINE SUB()
|
|
COMMON /BLK/ R
|
|
REAL R
|
|
|
|
!$OMP ATOMIC UPDATE
|
|
R = R + 1.0
|
|
END SUBROUTINE SUB
|
|
|
|
SUBROUTINE ATOMIC_WRONG2()
|
|
COMMON /BLK/ I
|
|
INTEGER I
|
|
|
|
!$OMP PARALLEL
|
|
|
|
!$OMP ATOMIC UPDATE
|
|
I = I + 1
|
|
CALL SUB()
|
|
!$OMP END PARALLEL
|
|
END SUBROUTINE ATOMIC_WRONG2
|