URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [scop-18.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-require-effective-target size32plus } */`
2
3			`#define N 24`
4			`#define M 1000`
5
6			`float A[1000][1000], B[1000][1000], C[1000][1000];`
7
8			`void test (void)`
9			`{`
10			`int i, j, k;`
11
12			`/* These loops contain too few iterations for being strip-mined by 64. */`
13			`for (i = 0; i < 24; i++)`
14			`for (j = 0; j < 24; j++)`
15			`for (k = 0; k < 24; k++)`
16			`A[i][j] = B[i][k] * C[k][j];`
17
18			`/* These loops should still be strip mined. */`
19			`for (i = 0; i < 1000; i++)`
20			`for (j = 0; j < 1000; j++)`
21			`for (k = 0; k < 1000; k++)`
22			`A[i][j] = B[i][k] * C[k][j];`
23			`}`
24
25			`/* { dg-final { scan-tree-dump-times "number of SCoPs: 2" 1 "graphite"} } */`
26			`/* { dg-final { cleanup-tree-dump "graphite" } } */`