1 extern void abort ();
2 
3 int
main()4 main ()
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