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
main()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 */
28