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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990826-0.c] - Diff between revs 149 and 154

Rev 149	Rev 154
`/*`	`/*`
`From: niles@fan745.gsfc.nasa.gov`	`From: niles@fan745.gsfc.nasa.gov`
`To: fortran@gnu.org`	`To: fortran@gnu.org`
`Subject: Re: Scary problems in g77 for RedHat 6.0. (glibc-2.1)`	`Subject: Re: Scary problems in g77 for RedHat 6.0. (glibc-2.1)`
`Date: Sun, 06 Jun 1999 23:37:23 -0400`	`Date: Sun, 06 Jun 1999 23:37:23 -0400`
`X-UIDL: 9c1e40c572e3b306464f703461764cd5`	`X-UIDL: 9c1e40c572e3b306464f703461764cd5`
`*/`	`*/`

`#include <stdio.h>`	`#include <stdio.h>`
`#include <math.h>`	`#include <math.h>`

`int`	`int`
`main()`	`main()`
`{`	`{`
`if (floor (0.1) != 0.)`	`if (floor (0.1) != 0.)`
`abort ();`	`abort ();`
`return 0;`	`return 0;`
`}`	`}`

`/*`	`/*`
`It will result in 36028797018963968.000000 on Alpha RedHat Linux 6.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`	`using glibc-2.1 at least on my 21064. This may result in g77 bug`
`reports concerning the INT() function, just so you know.`	`reports concerning the INT() function, just so you know.`

`Thanks,`	`Thanks,`
`Rick Niles.`	`Rick Niles.`
`*/`	`*/`