Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/atomic-16.c @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
// { dg-do run } extern void abort (void); int x = 6, cnt; int foo (void) { return cnt++; } int main () { int v, *p; p = &x; #pragma omp atomic update p[foo (), 0] = 16 + 6 - p[foo (), 0]; #pragma omp atomic read v = x; if (cnt != 2 || v != 16) abort (); #pragma omp atomic capture v = p[foo () + foo (), 0] = p[foo () + foo (), 0] + 3; if (cnt != 6 || v != 19) abort (); #pragma omp atomic capture v = p[foo (), 0] = 12 * 1 / 2 + (foo (), 0) + p[foo (), 0]; if (cnt != 9 || v != 25) abort (); #pragma omp atomic capture { v = p[foo () & 0]; p[foo () & 0] = (foo (), 1) * 9 - p[foo () & 0]; } if (cnt != 13 || v != 25) abort (); #pragma omp atomic read v = x; if (v != -16) abort (); #pragma omp atomic capture { p[0 & foo ()] = 16 - 2 + 3 + p[0 & foo ()]; v = p[0 & foo ()]; } if (cnt != 16 || v != 1) abort (); #pragma omp atomic capture { v = p[foo (), 0]; p[foo (), 0] = (foo (), 7) ? 13 : foo () + 6; } if (cnt != 19 || v != 1) abort (); #pragma omp atomic read v = x; if (v != 13) abort (); return 0; }