gcc/testsuite/gcc.c-torture/execute/ieee/rbug.c

   1 double d (unsigned long long k)
   2 {
   3   double x;
   4
   5   x = (double) k;
   6   return x;
   7 }
   8
   9 float s (unsigned long long k)
  10 {
  11   float x;
  12
  13   x = (float) k;
  14   return x;
  15 }
  16
  17 main ()
  18 {
  19   unsigned long long int k;
  20   double x;
  21
  22   if (sizeof (double) >= 8)
  23     {
  24       k = 0x8693ba6d7d220401ULL;
  25       x = d (k);
  26       k = (unsigned long long) x;
  27       if (k != 0x8693ba6d7d220800ULL)
  28         abort ();
  29     }
  30
  31   k = 0x8234508000000001ULL;
  32   x = s (k);
  33   k = (unsigned long long) x;
  34   if (k != 0x8234510000000000ULL)
  35     abort ();
  36
  37   exit (0);
  38 }
  39