From b5a3b7379916acf848f01b1734a64005919b0b7a Mon Sep 17 00:00:00 2001
From: Craig Burley <craig@jcb-sc.com>
Date: Thu, 26 Aug 1999 16:54:30 +0000
Subject: [PATCH] New tests

From-SVN: r28895
---
 gcc/testsuite/ChangeLog                       |  3 +++
 .../g77.f-torture/execute/19990826-0.f        | 19 +++++++++++++
 .../gcc.c-torture/execute/990826-0.c          | 27 +++++++++++++++++++
 3 files changed, 49 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/execute/19990826-0.f
 create mode 100644 gcc/testsuite/gcc.c-torture/execute/990826-0.c

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5783a4cfd35..948d5d01ac4 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 00000000000..975efdce61e
--- /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 00000000000..2807ea348eb
--- /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.
+*/