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