gcc/testsuite/gcc.dg/gomp/pr26412.c

   1 /* PR middle-end/26412 */
   2 /* { dg-do compile } */
   3
   4 extern double a[];
   5 extern int b;
   6
   7 double
   8 test (void)
   9 {
  10   int i;
  11   double c = 0;
  12
  13 #pragma omp parallel for private(i) reduction(+:c)
  14   for (i = 0; i < 10000; i++)
  15     c += a[b];
  16
  17   return c;
  18 }