diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-08-26 16:54:30 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-08-26 12:54:30 -0400 |
| commit | b5a3b7379916acf848f01b1734a64005919b0b7a (patch) | |
| tree | 31886173a309caed6ec6400872ff332ef98598a7 /gcc | |
| parent | f441f67120fc98b943b4f9d39a759404afc7032c (diff) | |
| download | gcc-b5a3b7379916acf848f01b1734a64005919b0b7a.zip gcc-b5a3b7379916acf848f01b1734a64005919b0b7a.tar.gz gcc-b5a3b7379916acf848f01b1734a64005919b0b7a.tar.bz2 | |
New tests
From-SVN: r28895
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990826-0.f | 19 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.c-torture/execute/990826-0.c | 27 |
3 files changed, 49 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5783a4c..948d5d0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,8 @@ 1999-08-26 Craig Burley <craig@jcb-sc.com> + * gcc.c-torture/execute/990826-0.c: New test. + * g77.c-torture/execute/19990826-0.f: New test. + * g77.f-torture/noncompile/970626-2.f: New test. 1999-08-25 Paul Burchard <burchard@pobox.com> diff --git a/gcc/testsuite/g77.f-torture/execute/19990826-0.f b/gcc/testsuite/g77.f-torture/execute/19990826-0.f new file mode 100644 index 0000000..975efdce --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/19990826-0.f @@ -0,0 +1,19 @@ +* From: niles@fan745.gsfc.nasa.gov +* To: fortran@gnu.org +* Cc: niles@fan745.gsfc.nasa.gov +* Subject: problem with DNINT() on Linux/Alpha. +* Date: Sun, 06 Jun 1999 16:39:35 -0400 +* X-UIDL: 6aa9208d7bda8b6182a095dfd37016b7 + + IF (DNINT(0.0D0) .NE. 0.) CALL ABORT + STOP + END + +* Result on Linux/i386: " 0." (and every other computer!) +* Result on Linux/alpha: " 3.6028797E+16" + +* It seems to work fine if I change it to the generic NINT(). Probably +* a name pollution problem in the new C library, but it seems bad. no? + +* Thanks, +* Rick Niles. diff --git a/gcc/testsuite/gcc.c-torture/execute/990826-0.c b/gcc/testsuite/gcc.c-torture/execute/990826-0.c new file mode 100644 index 0000000..2807ea3 --- /dev/null +++ b/gcc/testsuite/gcc.c-torture/execute/990826-0.c @@ -0,0 +1,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. +*/ |