URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [pr35130.c] - Rev 280
Go to most recent revision | Compare with Previous | Blame | View Log
/* PR middle-end/35130 */ extern void abort (void); void f1 (void) { int a[4], k; void nested (int x) { a[x] = 42; } for (k = 0; k < 4; k++) a[k] = 0; #pragma omp parallel for for (k = 0; k < 4; k++) nested (k); if (a[0] != 42 || a[1] != 42 || a[2] != 42 || a[3] != 42) abort (); } void f2 (void) { int a[4], k; void nested (void) { int l; void nested2 (int x) { a[x] = 42; } #pragma omp parallel for for (l = 0; l < 4; l++) nested2 (l); } for (k = 0; k < 4; k++) a[k] = 0; nested (); if (a[0] != 42 || a[1] != 42 || a[2] != 42 || a[3] != 42) abort (); } void f3 (void) { int a[4], b[4], c[4], k; void nested (int x) { a[x] = b[x] = c[x] = 42; } for (k = 0; k < 4; k++) a[k] = b[k] = c[k] = 0; nested (0); #pragma omp parallel { #pragma omp single { a[1] = 43; b[1] = 43; } #pragma omp parallel { #pragma omp single { b[2] = 44; c[2] = 44; } } } if (a[0] != 42 || a[1] != 43 || a[2] != 0 || a[3] != 0) abort (); if (b[0] != 42 || b[1] != 43 || b[2] != 44 || b[3] != 0) abort (); if (c[0] != 42 || c[1] != 0 || c[2] != 44 || c[3] != 0) abort (); } void f4 (void) { int a[4], b[4], c[4], k; void nested () { #pragma omp parallel { #pragma omp single { a[1] = 43; b[1] = 43; } #pragma omp parallel { #pragma omp single { b[2] = 44; c[2] = 44; } } } } for (k = 0; k < 4; k++) a[k] = b[k] = c[k] = k == 0 ? 42 : 0; nested (); if (a[0] != 42 || a[1] != 43 || a[2] != 0 || a[3] != 0) abort (); if (b[0] != 42 || b[1] != 43 || b[2] != 44 || b[3] != 0) abort (); if (c[0] != 42 || c[1] != 0 || c[2] != 44 || c[3] != 0) abort (); } int main (void) { f1 (); f2 (); f3 (); f4 (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log