10SN/Adouble test (const double le, const double ri)
29998SN/A{
30SN/A	double val = ( ri - le ) / ( ri * ( le + 1.0 ) );
40SN/A	return val;
50SN/A}
60SN/A
72362SN/Aint main ()
80SN/A{
92362SN/A        double retval;
100SN/A
110SN/A	retval = test(1.0,2.0);
120SN/A        if (retval < 0.24 || retval > 0.26)
130SN/A	  abort ();
140SN/A	exit (0);
150SN/A}
160SN/A