nsz Git - libfirm/blob - ir/be/test/fehler040.c

   1
   2 #define FABS(x)  fabs(x)
   3 #define FLOOR(x) floor(x)
   4
   5 double One = 1.0;
   6 double C, Y, Z;
   7
   8 int main()
   9 {
  10         Y = One;
  11         Z = 0.00000000000000011102;
  12         printf("Y: %20.20f Z: %20.20f\n", Y, Z);
  13         /* ... D is power of 1/Radix < 1. */
  14         do  {
  15                 C = Y;
  16                 Y = Z;
  17                 Z = Y * Y;
  18                 //printf("Y: %30.30f Z:%30.30f\n", Y, Z);
  19         } while ((Y > Z) && (Z + Z > Z));
  20
  21         printf("Res. %20.20f - %20.20f\n", Z, Y);
  22         return 0;
  23 }