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

   1 /* { dg-do run } */
   2
   3 #include <string.h>
   4 #include <stdlib.h>
   5 #include <stdio.h>
   6
   7 int
   8 main (void)
   9 {
  10   int i2, l = 0, r = 0;
  11   int a[3][3][3];
  12
  13   memset (a, '\0', sizeof (a));
  14   #pragma acc parallel
  15   #pragma acc loop collapse(4 - 1)
  16     for (int i = 0; i < 2; i++)
  17       for (int j = 0; j < 2; j++)
  18         for (int k = 0; k < 2; k++)
  19           a[i][j][k] = i + j * 4 + k * 16;
  20 #pragma acc parallel
  21     {
  22       #pragma acc loop collapse(2) reduction(|:l)
  23         for (i2 = 0; i2 < 2; i2++)
  24           for (int j = 0; j < 2; j++)
  25             for (int k = 0; k < 2; k++)
  26               if (a[i2][j][k] != i2 + j * 4 + k * 16)
  27                 l += 1;
  28     }
  29
  30     for (i2 = 0; i2 < 2; i2++)
  31       for (int j = 0; j < 2; j++)
  32         for (int k = 0; k < 2; k++)
  33           if (a[i2][j][k] != i2 + j * 4 + k * 16)
  34             r += 1;
  35
  36   if (l != r)
  37     abort ();
  38   return 0;
  39 }