libgomp/testsuite/libgomp.oacc-c-c++-common/collapse-2.c

   1 /* { dg-do run } */
   2
   3 #include <stdlib.h>
   4
   5 int
   6 main (void)
   7 {
   8   int i, j, k, l = 0, f = 0, x = 0;
   9   int m1 = 4, m2 = -5, m3 = 17;
  10
  11 #pragma acc parallel
  12   #pragma acc loop seq collapse(3) reduction(+:l)
  13     for (i = -2; i < m1; i++)
  14       for (j = m2; j < -2; j++)
  15         {
  16           for (k = 13; k < m3; k++)
  17             {
  18               if ((i + 2) * 12 + (j + 5) * 4 + (k - 13) !=  9 + f++)
  19                 l++;
  20             }
  21         }
  22
  23     for (i = -2; i < m1; i++)
  24       for (j = m2; j < -2; j++)
  25         {
  26           for (k = 13; k < m3; k++)
  27             {
  28               if ((i + 2) * 12 + (j + 5) * 4 + (k - 13) !=  9 + f++)
  29                 x++;
  30             }
  31         }
  32
  33   if (l != x)
  34     abort ();
  35
  36   return 0;
  37 }