Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 @ 122:fb3d53c41846
do not expand code segment
author | mir3636 |
---|---|
date | Thu, 22 Mar 2018 17:37:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } integer (kind = 4) :: a, a2 integer (kind = 2) :: b, b2 real :: c double precision :: d, d2, c2 integer, dimension (10) :: e !$omp atomic write a = 1 !$omp atomic write b = 2 !$omp atomic write c = 3 !$omp atomic write d = 4 !$omp atomic capture a2 = a a = a + 4 !$omp end atomic !$omp atomic capture b = b - 18 b2 = b !$omp end atomic !$omp atomic capture c2 = c c = 2.0 * c !$omp end atomic !$omp atomic capture d = d / 2.0 d2 = d !$omp end atomic if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) call abort !$omp atomic read a2 = a !$omp atomic read c2 = c if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) call abort end