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 
dsyrk(int N)7 void dsyrk(int N)
8 {
9   int i,j,k;
10 
11 #pragma scop
12   for (i=0; i<N; i++) {
13     for (j=0; j<N; j++) {
14       for (k=j; k<N; k++) {
15         c[j][k] += a[i][j] * a[i][k];
16       }
17     }
18   }
19 #pragma endscop
20 }
21 
22 /* { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" { xfail *-*-* } } } */
23