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 
dsyrk(int64_t N)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" } } */
26