New tests

From-SVN: r28895

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5783a4cfd3544bcdb8dc6c6c43f310dd01e67ff4..948d5d01ac466106a529fa99a71f2fdeaa4eb846 100644 (file)
--- 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 (file)
index 0000000..975efdc
--- /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 (file)
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.
+*/