Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/pr39591-2.c @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
line wrap: on
line source
/* PR other/39591 */ /* { dg-do run } */ extern void abort (void); int err; void __attribute__((noinline)) foo (int *array) { #pragma omp task { int j; for (j = 0; j < 40; j++) if (array[j] != 0x55555555) #pragma omp atomic err++; } } int main (void) { #pragma omp parallel { int array[40]; int i; for (i = 0; i < sizeof array / sizeof array[0]; i++) array[i] = 0x55555555; #pragma omp for schedule (dynamic) for (i = 0; i < 50; i++) foo (array); } if (err) abort (); return 0; }