mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
25 lines
454 B
Fortran
25 lines
454 B
Fortran
! @@name: atomic_restrict.2f
|
|
! @@type: F-fixed
|
|
! @@compilable: maybe
|
|
! @@linkable: no
|
|
! @@expect: failure
|
|
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
|