URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [scop-dsyr2k.c] - Rev 689
Compare with Previous | Blame | View Log
#define NMAX 3000 static double a[NMAX][NMAX], b[NMAX][NMAX], c[NMAX][NMAX]; void dsyr2k(long N) { int i,j,k; #pragma scop for (i=0; i<N; i++) { for (j=0; j<N; j++) { for (k=j; k<N; k++) { c[j][k] += a[i][j] * b[i][k] + b[i][j] * a[i][k]; } } } #pragma endscop } /* { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite"} } */ /* { dg-final { cleanup-tree-dump "graphite" } } */