Mercurial > hg > CbC > CbC_gcc

view libgomp/testsuite/libgomp.fortran/atomic1.f90 @ 157:dafe684d005c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:08:54 +0900
parents 1830386684a0
children
line wrap: on
line source

! PR fortran/92899

program pr92899
  real :: x = 1.0
  double precision :: y
  integer(kind=4) :: z = 4
  integer(kind=8) :: w
  !$omp atomic capture
  y = x
  x = 2.0
  !$omp end atomic
  if (y /= 1.0 .or. x /= 2.0) stop 1
  !$omp atomic capture
  x = y
  y = 3.0
  !$omp end atomic
  if (x /= 1.0 .or. y /= 3.0) stop 2
  !$omp atomic capture
  w = z
  z = 5
  !$omp end atomic
  if (w /= 4 .or. z /= 5) stop 3
  !$omp atomic capture
  z = w
  w = 6
  !$omp end atomic
  if (z /= 4 .or. w /= 6) stop 4
  !$omp atomic write
  x = y
  !$omp end atomic
  if (x /= 3.0 .or. y /= 3.0) stop 5
  x = 7.0
  !$omp atomic write
  y = x
  !$omp end atomic
  if (x /= 7.0 .or. y /= 7.0) stop 6
  !$omp atomic write
  z = w
  !$omp end atomic
  if (z /= 6 .or. w /= 6) stop 7
  z = 8
  !$omp atomic write
  w = z
  !$omp end atomic
  if (z /= 8 .or. w /= 8) stop 8
end