summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.c-torture/execute/990826-0.c
blob: 2807ea348eb9ba63a4448be3766587571e6bff75 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
/*
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.
*/