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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	689	jeremybenn	`void bar (void);`
2
3			`int toto()`
4			`{`
5			`int i, j, k;`
6			`int a[101][100];`
7			`int b[100];`
8
9			`for (i = 1; i < 100; i++)`
10			`{`
11			`for (j = 1; j < 100; j++)`
12			`for (k = 1; k < 100; k++)`
13			`a[j][k] = a[j+1][i-1] + 2;`
14
15			`b[i] = b[i-1] + 2;`
16
17			`bar ();`
18
19			`for (j = 1; j < 100; j++)`
20			`a[j][i] = a[j+1][i-1] + 2;`
21
22			`b[i] = b[i-1] + 2;`
23
24			`bar ();`
25
26			`for (j = 1; j < 100; j++)`
27			`a[j][i] = a[j+1][i-1] + 2;`
28
29			`b[i] = a[i-1][i] + 2;`
30
31			`for (j = 1; j < 100; j++)`
32			`a[j][i] = a[j+1][i-1] + 2;`
33			`}`
34
35			`return a[3][5] + b[1];`
36			`}`
37
38			`/* { dg-final { scan-tree-dump-times "number of SCoPs: 4" 1 "graphite"} } */`
39			`/* { dg-final { cleanup-tree-dump "graphite" } } */`