gcc/testsuite/gcc.dg/graphite/scop-dsyrk-2.c

   1 /* { dg-require-effective-target size32plus } */
   2 /* { dg-additional-options "-fno-thread-jumps" } */
   3 #define NMAX 3000
   4 #define MEASURE_TIME 1
   5
   6 static double a[NMAX][NMAX], c[NMAX][NMAX];
   7
   8 typedef __INT32_TYPE__ int32_t;
   9 typedef __INT64_TYPE__ int64_t;
  10
  11 void dsyrk(int64_t N)
  12 {
  13   int32_t i,j,k;
  14
  15 #pragma scop
  16   for (i=0; i<N; i++) {
  17     for (j=0; j<N; j++) {
  18       for (k=j; k<N; k++) {
  19         c[j][k] += a[i][j] * a[i][k];
  20       }
  21     }
  22   }
  23 #pragma endscop
  24 }
  25
  26 /* { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" } } */