Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c++/single-2.C @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | a06113de4d67 |
children | 84e7813d76e9 |
line wrap: on
line source
extern "C" void abort (void); struct X { int a; char b; int c; }; main() { int i = 0; struct X x; int bad = 0; #pragma omp parallel private (i, x) shared (bad) { i = 5; #pragma omp single copyprivate (i, x) { i++; x.a = 23; x.b = 42; x.c = 26; } if (i != 6 || x.a != 23 || x.b != 42 || x.c != 26) bad = 1; } if (bad) abort (); return 0; }