Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/loop-10.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 |
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; }