URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [omp-single-2.c] - Rev 741
Go to most recent revision | Compare with Previous | Blame | View Log
#include <omp.h> extern 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; }
Go to most recent revision | Compare with Previous | Blame | View Log