extern void abort (); | |
int | |
main () | |
{ | |
int i; | |
double oldrho; | |
double beta = 0.0; | |
double work = 1.0; | |
for (i = 1; i <= 2; i++) | |
{ | |
double rho = work * work; | |
if (i != 1) | |
beta = rho / oldrho; | |
if (beta == 1.0) | |
abort (); | |
/* All targets even remotely likely to ever get supported | |
use at least an even base, so there will never be any | |
floating-point rounding. All computation in this test | |
case is exact for even bases. */ | |
work /= 2.0; | |
oldrho = rho; | |
} | |
return 0; | |
} |