Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/loop-10.c @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | a06113de4d67 |
children |
line wrap: on
line source
extern void abort (void); int i = 8; int main (void) { int j = 7, k = 0; #pragma omp for for (i = 0; i < 10; i++) ; #pragma omp for for (j = 0; j < 10; j++) ; /* OpenMP 3.0 newly guarantees that the original list items can't be shared with the privatized omp for iterators, even when the original list items are already private. */ if (i != 8 || j != 7) abort (); #pragma omp parallel private (i) reduction (+:k) { i = 6; #pragma omp for for (i = 0; i < 10; i++) ; k = (i != 6); } if (k) abort (); return 0; }