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/] [990829-1.c] - Rev 297
Compare with Previous | Blame | View Log
double test (const double le, const double ri) { double val = ( ri - le ) / ( ri * ( le + 1.0 ) ); return val; } int main () { double retval; retval = test(1.0,2.0); if (retval < 0.24 || retval > 0.26) abort (); exit (0); }