OSDN Git Service

2006-11-14 Paolo Bonzini <bonzini@gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.c-torture / execute / pr29798.c
1 extern void abort ();
2
3 int
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 }