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

Subversion Repositories openrisc

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

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