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