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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990829-1.c] - Diff between revs 297 and 338

Rev 297	Rev 338
`double test (const double le, const double ri)`	`double test (const double le, const double ri)`
`{`	`{`
`double val = ( ri - le ) / ( ri * ( le + 1.0 ) );`	`double val = ( ri - le ) / ( ri * ( le + 1.0 ) );`
`return val;`	`return val;`
`}`	`}`

`int main ()`	`int main ()`
`{`	`{`
`double retval;`	`double retval;`

`retval = test(1.0,2.0);`	`retval = test(1.0,2.0);`
`if (retval < 0.24 \|\| retval > 0.26)`	`if (retval < 0.24 \|\| retval > 0.26)`
`abort ();`	`abort ();`
`exit (0);`	`exit (0);`
`}`	`}`