URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [960513-1.c] - Rev 816
Compare with Previous | Blame | View Log
long double f (d, i) long double d; int i; { long double e; d = -d; e = d; if (i == 1) d *= 2; d -= e * d; d -= e * d; d -= e * d; d -= e * d; d -= e * d; return d; } main () { if (! (int) (f (2.0L, 1))) abort (); exit (0); }