* gcc.c-torture/execute/990829-1.c: New test.
From-SVN: r28976
This commit is contained in:
parent
18987000a9
commit
93e0015e79
@ -1,5 +1,6 @@
|
||||
Sun Aug 29 14:35:41 1999 Jeffrey A Law (law@cygnus.com)
|
||||
|
||||
* gcc.c-torture/execute/990829-1.c: New test.
|
||||
* gcc.c-torture/compile/990829-1.c: New test.
|
||||
|
||||
1999-08-27 Paul Burchard <burchard@pobox.com>
|
||||
|
15
gcc/testsuite/gcc.c-torture/execute/990829-1.c
Normal file
15
gcc/testsuite/gcc.c-torture/execute/990829-1.c
Normal file
@ -0,0 +1,15 @@
|
||||
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);
|
||||
}
|
Loading…
Reference in New Issue
Block a user