URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [930603-1.c] - Rev 308
Go to most recent revision | Compare with Previous | Blame | View Log
float fx (x) float x; { return 1.0 + 3.0 / (2.302585093 * x); } main () { float fx (), inita (), initc (), a, b, c; a = inita (); c = initc (); f (); b = fx (c) + a; f (); if (a != 3.0 || b < 4.3257 || b > 4.3258 || c != 4.0) abort (); exit (0); } float inita () { return 3.0; } float initc () { return 4.0; } f () {}
Go to most recent revision | Compare with Previous | Blame | View Log