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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20010209-1.c] - Blame information for rev 774

Line No.	Rev	Author	Line
1	688	jeremybenn	`int b;`
2			`int foo (void)`
3			`{`
4			`int x[b];`
5			`int bar (int t[b])`
6			`{`
7			`int i;`
8			`for (i = 0; i < b; i++)`
9			`t[i] = i + (i > 0 ? t[i-1] : 0);`
10			`return t[b-1];`
11			`}`
12			`return bar (x);`
13			`}`
14
15			`int main ()`
16			`{`
17			`b = 6;`
18			`if (foo () != 15)`
19			`abort ();`
20			`exit (0);`
21			`}`