From 59159a105e300b3ed5f9a67a1b76947e91f338b4 Mon Sep 17 00:00:00 2001
From: Michael Meissner <meissner@cygnus.com>
Date: Tue, 27 Jul 1999 15:03:03 +0000
Subject: [PATCH] Add clones of fp-cmp-1 for float/long double; Change name of
 unknown register

From-SVN: r28296
---
 gcc/testsuite/gcc.c-torture/ChangeLog         | 12 ++++++
 .../gcc.c-torture/execute/ieee/fp-cmp-2.c     | 41 +++++++++++++++++++
 .../gcc.c-torture/execute/ieee/fp-cmp-3.c     | 41 +++++++++++++++++++
 .../gcc.c-torture/noncompile/920507-1.c       |  2 +-
 4 files changed, 95 insertions(+), 1 deletion(-)
 create mode 100644 gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-2.c
 create mode 100644 gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-3.c

diff --git a/gcc/testsuite/gcc.c-torture/ChangeLog b/gcc/testsuite/gcc.c-torture/ChangeLog
index 71e83c6e78d8..89700ee5b269 100644
--- a/gcc/testsuite/gcc.c-torture/ChangeLog
+++ b/gcc/testsuite/gcc.c-torture/ChangeLog
@@ -1,3 +1,15 @@
+1999-07-27  Michael Meissner  <meissner@cygnus.com>
+
+	* execute/ieee/fp-cmp-2.c: New file, clone from fp-cmp-1.c,
+	converting double to float.
+
+	* execute/ieee/fp-cmp-3.c: New file, clone from fp-cmp-1.c,
+	converting double to long double.
+
+	* noncompile/920507-1.c (x): Rename asm register from fr1 to
+	unknown_register, since fr1 is a legitimate register on some
+	machines.
+
 1999-06-23  Nick Clifton  <nickc@cygnus.com>
 
 	* compile/dll.c: New test case.  Check that dll attributes
diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-2.c b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-2.c
new file mode 100644
index 000000000000..2a86d0f5eb9b
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-2.c
@@ -0,0 +1,41 @@
+#include <signal.h>
+
+float nan = 1.0f/0.0f - 1.0f/0.0f;
+float x = 1.0f;
+
+void leave ()
+{
+  exit (0);
+}
+
+main ()
+{
+#if ! defined (__vax__) && ! defined (_CRAY)
+  /* Move this line earlier, for architectures (like alpha) that issue 
+     SIGFPE on the first comparisons. */
+#ifndef SIGNAL_SUPPRESS
+  /* Some machines catches a SIGFPE when a NaN is compared.
+     Let this test succeed o such machines.  */
+  signal (SIGFPE, leave);
+#endif
+  /* NaN is an IEEE unordered operand.  All these test should be false.  */
+  if (nan == nan)
+    abort ();
+  if (nan != x)
+    x = 1.0;
+  else
+    abort ();
+
+  if (nan < x)
+    abort ();
+  if (nan > x)
+    abort ();
+  if (nan <= x)
+    abort ();
+  if (nan >= x)
+    abort ();
+  if (nan == x)
+    abort ();
+#endif
+  exit (0);
+}
diff --git a/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-3.c b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-3.c
new file mode 100644
index 000000000000..8b182902d9b1
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/ieee/fp-cmp-3.c
@@ -0,0 +1,41 @@
+#include <signal.h>
+
+long double nan = 1.0l/0.0l - 1.0l/0.0l;
+long double x = 1.0l;
+
+void leave ()
+{
+  exit (0);
+}
+
+main ()
+{
+#if ! defined (__vax__) && ! defined (_CRAY)
+  /* Move this line earlier, for architectures (like alpha) that issue 
+     SIGFPE on the first comparisons. */
+#ifndef SIGNAL_SUPPRESS
+  /* Some machines catches a SIGFPE when a NaN is compared.
+     Let this test succeed o such machines.  */
+  signal (SIGFPE, leave);
+#endif
+  /* NaN is an IEEE unordered operand.  All these test should be false.  */
+  if (nan == nan)
+    abort ();
+  if (nan != x)
+    x = 1.0;
+  else
+    abort ();
+
+  if (nan < x)
+    abort ();
+  if (nan > x)
+    abort ();
+  if (nan <= x)
+    abort ();
+  if (nan >= x)
+    abort ();
+  if (nan == x)
+    abort ();
+#endif
+  exit (0);
+}
diff --git a/gcc/testsuite/gcc.c-torture/noncompile/920507-1.c b/gcc/testsuite/gcc.c-torture/noncompile/920507-1.c
index e1bd9934de32..07f2fd03a90e 100644
--- a/gcc/testsuite/gcc.c-torture/noncompile/920507-1.c
+++ b/gcc/testsuite/gcc.c-torture/noncompile/920507-1.c
@@ -1 +1 @@
-x(){register*a asm("fr1");int*v[1]={a};}
+x(){register*a asm("unknown_register");int*v[1]={a};}
-- 
2.47.2