libgomp/testsuite/libgomp.c/task-reduction-4.c

   1 /* PR middle-end/100471 */
   2
   3 extern void abort (void);
   4
   5 int c;
   6
   7 int
   8 main ()
   9 {
  10 #pragma omp parallel
  11 #pragma omp single
  12   {
  13     int r = 0, i;
  14     #pragma omp taskloop reduction(+:r)
  15     for (i = 0; i < c; i++)
  16       r++;
  17     if (r != 0)
  18       abort ();
  19   }
  20   return 0;
  21 }