OSDN Git Service

2009-07-25 Martin Jambor <mjambor@suse.cz>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / 990829-1.c
1 double test (const double le, const double ri)
2 {
3         double val = ( ri - le ) / ( ri * ( le + 1.0 ) );
4         return val;
5 }
6
7 int main ()
8 {
9         double retval;
10
11         retval = test(1.0,2.0);
12         if (retval < 0.24 || retval > 0.26)
13           abort ();
14         exit (0);
15 }