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

   1 /* { dg-require-effective-target size32plus } */
   2
   3 /* Formerly known as ltrans-8.c */
   4
   5 #define DEBUG 0
   6 #if DEBUG
   7 #include <stdio.h>
   8 #endif
   9
  10 #define N 111
  11 #define M 1111
  12
  13 static int __attribute__((noinline))
  14 foo (double *a)
  15 {
  16   int i,j;
  17   int r = 0;
  18
  19   for (i = 0; i < N; ++i)
  20     for (j = 0; j < M; ++j)
  21       r += a[j * N + i];
  22
  23   return r;
  24 }
  25
  26 int
  27 main (void)
  28 {
  29   double A[N*M];
  30   int i, res;
  31
  32   for (i = 0; i < N*M; i++)
  33     A[i] = 2;
  34
  35   res = foo (A);
  36
  37 #if DEBUG
  38   fprintf (stderr, "res = %d \n", res);
  39 #endif
  40
  41   return res != 246642;
  42 }
  43
  44 /* { dg-final { scan-tree-dump-times "will be interchanged" 1 "graphite" } } */
  45 /* { dg-final { cleanup-tree-dump "graphite" } } */