/* | |
From: niles@fan745.gsfc.nasa.gov | |
To: fortran@gnu.org | |
Subject: Re: Scary problems in g77 for RedHat 6.0. (glibc-2.1) | |
Date: Sun, 06 Jun 1999 23:37:23 -0400 | |
X-UIDL: 9c1e40c572e3b306464f703461764cd5 | |
*/ | |
#include <stdio.h> | |
#include <math.h> | |
int | |
main() | |
{ | |
if (floor (0.1) != 0.) | |
abort (); | |
return 0; | |
} | |
/* | |
It will result in 36028797018963968.000000 on Alpha RedHat Linux 6.0 | |
using glibc-2.1 at least on my 21064. This may result in g77 bug | |
reports concerning the INT() function, just so you know. | |
Thanks, | |
Rick Niles. | |
*/ |