URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [scop-dsyrk.c] - Rev 301
Go to most recent revision | Compare with Previous | Blame | View Log
#define NMAX 3000 #define MEASURE_TIME 1 static double a[NMAX][NMAX], c[NMAX][NMAX]; void dsyrk(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] * a[i][k]; } } } #pragma endscop } /* { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" } } */ /* { dg-final { cleanup-tree-dump "graphite" } } */
Go to most recent revision | Compare with Previous | Blame | View Log