1 extern void abort (); 2 3 int main()4main () 5 { 6 int i; 7 double oldrho; 8 double beta = 0.0; 9 double work = 1.0; 10 for (i = 1; i <= 2; i++) 11 { 12 double rho = work * work; 13 if (i != 1) 14 beta = rho / oldrho; 15 if (beta == 1.0) 16 abort (); 17 18 /* All targets even remotely likely to ever get supported 19 use at least an even base, so there will never be any 20 floating-point rounding. All computation in this test 21 case is exact for even bases. */ 22 work /= 2.0; 23 oldrho = rho; 24 } 25 return 0; 26 } 27