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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	688	jeremybenn	`long double`
2			`f (d, i)`
3			`long double d;`
4			`int i;`
5			`{`
6			`long double e;`
7
8			`d = -d;`
9			`e = d;`
10			`if (i == 1)`
11			`d *= 2;`
12			`d -= e * d;`
13			`d -= e * d;`
14			`d -= e * d;`
15			`d -= e * d;`
16			`d -= e * d;`
17			`return d;`
18			`}`
19
20			`main ()`
21			`{`
22			`if (! (int) (f (2.0L, 1)))`
23			`abort ();`
24			`exit (0);`
25			`}`