URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990826-0.c] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log

/*
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.
*/

Line No.	Rev	Author	Line
1	688	jeremybenn	`/*`
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			`*/`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990826-0.c] - Blame information for rev 774