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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	688	jeremybenn	`float fx (x)`
2			`float x;`
3			`{`
4			`return 1.0 + 3.0 / (2.302585093 * x);`
5			`}`
6
7			`main ()`
8			`{`
9			`float fx (), inita (), initc (), a, b, c;`
10			`a = inita ();`
11			`c = initc ();`
12			`f ();`
13			`b = fx (c) + a;`
14			`f ();`
15			`if (a != 3.0 \|\| b < 4.3257 \|\| b > 4.3258 \|\| c != 4.0)`
16			`abort ();`
17			`exit (0);`
18			`}`
19
20			`float inita () { return 3.0; }`
21			`float initc () { return 4.0; }`
22			`f () {}`