Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/atomic-12.c @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do run } */ extern void abort (void); _Bool v, x1, x2, x3, x4, x5, x6; void foo (void) { #pragma omp atomic capture v = ++x1; if (!v) abort (); #pragma omp atomic capture v = x2++; if (v) abort (); #pragma omp atomic capture v = --x3; if (v) abort (); #pragma omp atomic capture v = x4--; if (!v) abort (); #pragma omp atomic capture { v = x5; x5 |= 1; } if (v) abort (); #pragma omp atomic capture { x6 |= 1; v = x6; } if (!v) abort (); } void bar (void) { #pragma omp atomic write x1 = 0; #pragma omp atomic write x2 = 0; #pragma omp atomic write x3 = 1; #pragma omp atomic write x4 = 1; #pragma omp atomic capture { ++x1; v = x1; } if (!v) abort (); #pragma omp atomic capture { v = x2; x2++; } if (v) abort (); #pragma omp atomic capture { --x3; v = x3; } if (v) abort (); #pragma omp atomic capture { v = x4; x4--; } if (!v) abort (); #pragma omp atomic write x1 = 0; #pragma omp atomic write x2 = 0; #pragma omp atomic write x3 = 1; #pragma omp atomic write x4 = 1; #pragma omp atomic capture { x1++; v = x1; } if (!v) abort (); #pragma omp atomic capture { v = x2; ++x2; } if (v) abort (); #pragma omp atomic capture { x3--; v = x3; } if (v) abort (); #pragma omp atomic capture { v = x4; --x4; } if (!v) abort (); } int main () { #pragma omp atomic write x3 = 1; #pragma omp atomic write x4 = 1; foo (); bar (); return 0; }