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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [block-3.c] - Blame information for rev 384

Line No.	Rev	Author	Line
1	298	jeremybenn	`/* { dg-require-effective-target size32plus } */`
2			`/* { dg-timeout-factor 4.0 } */`
3
4			`#define DEBUG 0`
5			`#if DEBUG`
6			`#include <stdio.h>`
7			`#endif`
8
9			`#define N 24`
10			`#define M 100`
11
12			`int A[M][M][M], B[M][M], C[M][M];`
13
14			`static int __attribute__((noinline))`
15			`foo (void)`
16			`{`
17			`int i, j, k;`
18
19			`/* These loops contain too few iterations to be blocked by 64. */`
20			`for (i = 0; i < 24; i++)`
21			`for (j = 0; j < 24; j++)`
22			`for (k = 0; k < 24; k++)`
23			`A[i][j][k] = B[i][k] * C[k][j];`
24
25			`/* These loops should still be loop blocked. */`
26			`for (i = 0; i < M; i++)`
27			`for (j = 0; j < M; j++)`
28			`for (k = 0; k < M; k++)`
29			`A[i][j][k] = B[i][k] * C[k][j];`
30
31			`return A[0][0][0] + A[M-1][M-1][M-1];`
32			`}`
33
34			`extern void abort ();`
35
36			`int`
37			`main (void)`
38			`{`
39			`int i, j, res;`
40
41			`for (i = 0; i < M; i++)`
42			`for (j = 0; j < M; j++)`
43			`{`
44			`B[i][j] = i;`
45			`C[i][j] = j;`
46			`}`
47
48			`res = foo ();`
49
50			`#if DEBUG`
51			`fprintf (stderr, "res = %d \n", res);`
52			`#endif`
53
54			`if (res != 9801)`
55			`abort ();`
56
57			`return 0;`
58			`}`
59
60			`/* { dg-final { scan-tree-dump-times "will be loop blocked" 1 "graphite" } } */`
61			`/* { dg-final { cleanup-tree-dump "graphite" } } */`