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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	688	jeremybenn	`f(x, d1, d2, d3)`
2			`double d1, d2, d3;`
3			`{`
4			`return x;`
5			`}`
6
7			`g(b,s,x,y,i,j)`
8			`char b,s;`
9			`double x,y;`
10			`{`
11			`if (x != 1.0 \|\| y != 2.0 \|\| i != 3 \|\| j != 4)`
12			`abort();`
13			`}`
14
15			`main()`
16			`{`
17			`g("","", 1.0, 2.0, f(3, 0.0, 0.0, 0.0), f(4, 0.0, 0.0, 0.0));`
18			`exit(0);`
19			`}`