gcc/testsuite/gcc.dg/graphite/interchange-8.c

   1 int
   2 foo (void)
   3 {
   4   int i, j, k, l;
   5   int B[4];
   6   int A[4][4][4][4];
   7
   8   for (l = 0; l < 4; l++)
   9     {
  10       for (k = 0; k < 4; k++)
  11         {
  12           for (j = 0; j < 4; j++)
  13             {
  14               for (i = 0; i < 2; i++)
  15                 {
  16                   B[i] = A[i][k][j][l] + A[3 - i][k][j][l];
  17                   B[3 - i] = A[i][k][j][l] - A[3 - i][k][j][l];
  18                 }
  19               A[0][k][j][l] = B[0] + B[1];
  20               A[2][k][j][l] = B[0] - B[1];
  21               A[1][k][j][l] = B[3] + B[2];
  22               A[3][k][j][l] = B[3] - B[2];
  23             }
  24
  25           for (i = 0; i < 4; i++)
  26             {
  27               for (j = 0; j < 2; j++)
  28                 {
  29                   B[j] = A[i][k][j][l] + A[i][k][3 - j][l];
  30                   B[3 - j] = A[i][k][j][l] - A[i][k][3 - j][l];
  31                 }
  32               A[i][k][0][l] = B[0] + B[1];
  33               A[i][k][2][l] = B[0] - B[1];
  34               A[i][k][1][l] = B[3] + B[2];
  35               A[i][k][3][l] = B[3] - B[2];
  36             }
  37         }
  38     }
  39
  40   return A[0][1][0][2];
  41 }
  42
  43 /* This should not be interchanged.  */
  44 /* { dg-final { scan-tree-dump-times "will be interchanged" 0 "graphite" } } */
  45 /* { dg-final { cleanup-tree-dump "graphite" } } */