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)7void 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