From 0586b4600f8072bdde554e48a2548ae19beb426f Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@cygnus>
Date: Thu, 10 Feb 1994 05:39:17 +0000
Subject: [PATCH] * gas/alpha/fp.*: New files. * lib/gas-defs.exp
 (regexp_diff): Report noted mismatch at verbosity level 3 or above only.

---
 gas/testsuite/gas/alpha/fp.d   | 10 ++++++++++
 gas/testsuite/gas/alpha/fp.exp | 16 ++++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 gas/testsuite/gas/alpha/fp.d
 create mode 100644 gas/testsuite/gas/alpha/fp.exp

diff --git a/gas/testsuite/gas/alpha/fp.d b/gas/testsuite/gas/alpha/fp.d
new file mode 100644
index 00000000000..1c9721688f0
--- /dev/null
+++ b/gas/testsuite/gas/alpha/fp.d
@@ -0,0 +1,10 @@
+
+.*:     file format ecoff-littlealpha
+
+Contents of section .reginfo:
+ [0-9 .]*
+ [0-9A-Z .]*
+Contents of section .rdata:
+ 0000 71a37909 4f930a40 5441789a cd4b881b  q.y.O..@TAx..K..
+ 0010 2a404f93 790971a3 789a5440 5441789a  \*@O.y.q.x.T@TAx.
+ 0020 00000000 00000000 00000000 00000000  ................
diff --git a/gas/testsuite/gas/alpha/fp.exp b/gas/testsuite/gas/alpha/fp.exp
new file mode 100644
index 00000000000..5517dcf21b9
--- /dev/null
+++ b/gas/testsuite/gas/alpha/fp.exp
@@ -0,0 +1,16 @@
+#
+# SunOS4 on SPARC tests
+#
+
+if [istarget alpha-*-osf1*] then {
+    set testname "fp constants (part 2)"
+    if [gas_test_old "fp.s" "" "fp constants (part 1)"] then {
+	objdump_start_no_subdir "a.out > a.dump" "-s"
+	objdump_finish
+	if { [regexp_diff "a.dump" "$srcdir/$subdir/fp.d"] == 0 } then {
+	    pass $testname
+	} else {
+	    fail $testname
+	}
+    }
+}