gcc/testsuite/gcc.dg/tree-ssa/loop-interchange-1b.c

   1 /* { dg-do run } */
   2 /* { dg-options "-O2 -floop-interchange -fdump-tree-linterchange-details" } */
   3
   4 /* Copied from graphite/interchange-4.c */
   5
   6 #define DEBUG 0
   7 #if DEBUG
   8 #include <stdio.h>
   9 #endif
  10
  11 double u[1782225];
  12
  13 static void __attribute__((noinline))
  14 foo (int N, double *res)
  15 {
  16   int i, j;
  17   double sum = 0;
  18   for (i = 0; i < N; i++)
  19     for (j = 0; j < N; j++)
  20       sum = sum + u[i + 1335 * j];
  21
  22   *res = sum;
  23 }
  24
  25 extern void abort ();
  26
  27 int
  28 main (void)
  29 {
  30   int i, j;
  31   double res;
  32
  33   for (i = 0; i < 1782225; i++)
  34     u[i] = 0;
  35   u[0] = __DBL_MAX__;
  36   u[1335] = -__DBL_MAX__;
  37   u[1] = __DBL_MAX__;
  38   u[1336] = -__DBL_MAX__;
  39
  40   foo (1335, &res);
  41
  42 #if DEBUG
  43   fprintf (stderr, "res = %d \n", res);
  44 #endif
  45
  46   if (res != 0.0)
  47     abort ();
  48
  49   return 0;
  50 }
  51
  52 /* { dg-final { scan-tree-dump-not "is interchanged" "linterchange"} } */