Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/omp-single-2.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | a06113de4d67 |
children |
line wrap: on
line source
#include <omp.h> extern void abort (void); struct X { int a; char b; int c; }; int 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; }