libgomp/testsuite/libgomp.c/teams-3.c

   1 /* PR middle-end/96459 */
   2
   3 #include <stdlib.h>
   4
   5 int
   6 main ()
   7 {
   8   int niters = 0, i, j, k;
   9   #pragma omp teams reduction(+:niters)
  10   {
  11     #pragma omp distribute collapse(3)
  12     for (i = 0; i < 3; i++)
  13       for (j = 0; j < 8; j += 2)
  14         for (k = 0; k < 25; k += 3)
  15           niters++;
  16   }
  17   if (niters != 108)
  18     abort ();
  19   return 0;
  20 }