gcc/testsuite/gcc.c-torture/execute/990826-0.c

   1 /*
   2 From: niles@fan745.gsfc.nasa.gov
   3 To: fortran@gnu.org
   4 Subject: Re: Scary problems in g77 for RedHat 6.0. (glibc-2.1)
   5 Date: Sun, 06 Jun 1999 23:37:23 -0400
   6 X-UIDL: 9c1e40c572e3b306464f703461764cd5
   7 */
   8
   9 #include <stdio.h>
  10 #include <math.h>
  11
  12 int
  13 main()
  14 {
  15   if (floor (0.1) != 0.)
  16     abort ();
  17   return 0;
  18 }
  19
  20 /*
  21 It will result in 36028797018963968.000000 on Alpha RedHat Linux 6.0
  22 using glibc-2.1 at least on my 21064.  This may result in g77 bug
  23 reports concerning the INT() function, just so you know.
  24
  25         Thanks,
  26         Rick Niles.
  27 */