gcc/testsuite/gcc.c-torture/execute/cvt-1.c

   1 /* CYGNUS LOCAL -- meissner/16 bit ints */
   2 static inline long
   3 g1 (double x)
   4 {
   5   return (double) (long) x;
   6 }
   7
   8 long
   9 g2 (double f)
  10 {
  11   return f;
  12 }
  13
  14 double
  15 f (long i)
  16 {
  17   if (g1 (i) != g2 (i))
  18     abort ();
  19   return g2 (i);
  20 }
  21
  22 main ()
  23 {
  24   if (f (123456789L) != 123456789L)
  25     abort ();
  26   if (f (123456789L) != g2 (123456789L))
  27     abort ();
  28   exit (0);
  29 }
  30 /* END CYGNUS LOCAL -- meissner/16 bit ints */