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

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