Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/pr39591-3.c @ 64:d9bee9007a48
Added tag gcc-4.6-20100522 for changeset b7f97abdc517
author | ryoma <e075725@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 24 May 2010 12:48:09 +0900 (2010-05-24) |
parents | a06113de4d67 |
children | 04ced10e8804 |
line wrap: on
line source
/* PR other/39591 */ /* { dg-do run } */ /* { dg-options "-O2" } */ extern void abort (void); int err, a[40]; void __attribute__((noinline)) foo (int *array) { #pragma omp task { int j; for (j = 0; j < sizeof array / sizeof array[0]; j++) if (array[j] != 0x55555555) #pragma omp atomic err++; } } int main (void) { int k; for (k = 0; k < sizeof a / sizeof a[0]; k++) a[k] = 0x55555555; #pragma omp parallel { int i; #pragma omp for schedule (dynamic) for (i = 0; i < 50; i++) foo (a); } if (err) abort (); return 0; }