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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.graphite/] [force-parallel-6.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	735	jeremybenn	`#define N 500`
2
3			`int X[2N], Y[2N], B[2*N];`
4			`int A[2N][2N], C[2N][2N];`
5
6			`int foo(void)`
7			`{`
8			`int i, j, k;`
9
10			`for (i = 1; i <= N; i++)`
11			`{`
12			`X[i] = Y[i] + 10;`
13			`for (j = 1; j <= N; j++)`
14			`{`
15			`B[j] = A[j][N];`
16			`for (k = 1; k <= N; k++)`
17			`{`
18			`A[j+1][k] = B[j] + C[j][k];`
19			`}`
20			`Y[i+j] = A[j+1][N];`
21			`}`
22			`}`
23
24			`return A[1][5]*B[6];`
25			`}`
26
27			`int main(void)`
28			`{`
29			`foo();`
30
31			`return 0;`
32			`}`
33
34			`/* Check that parallel code generation part make the right answer. */`
35			`/* { dg-final { scan-tree-dump-times "1 loops carried no dependency" 1 "graphite" } } */`
36			`/* { dg-final { cleanup-tree-dump "graphite" } } */`
37			`/* { dg-final { scan-tree-dump-times "loopfn.0" 5 "optimized" } } */`
38			`/* { dg-final { cleanup-tree-dump "parloops" } } */`
39			`/* { dg-final { cleanup-tree-dump "optimized" } } */`