From 4fc3b3b4938bda69b1332e1cbbccf78533ae3fce Mon Sep 17 00:00:00 2001
From: Jeff Law <law@redhat.com>
Date: Sat, 5 Feb 1994 07:43:29 +0000
Subject: [PATCH]         * gas/hppa/more.parse/xmpyubug.s: New test.         *
 gas/hppa/more.parse/parse.exp: Run it.

---
 gas/testsuite/ChangeLog                      |  5 +++++
 gas/testsuite/gas/hppa/more.parse/.Sanitize  |  1 +
 gas/testsuite/gas/hppa/more.parse/parse.exp  |  4 ++++
 gas/testsuite/gas/hppa/more.parse/xmpyubug.s | 17 +++++++++++++++++
 gas/testsuite/gas/hppa/parse/.Sanitize       |  1 +
 gas/testsuite/gas/hppa/parse/parse.exp       |  4 ++++
 gas/testsuite/gas/hppa/parse/xmpyubug.s      | 17 +++++++++++++++++
 7 files changed, 49 insertions(+)
 create mode 100644 gas/testsuite/gas/hppa/more.parse/xmpyubug.s
 create mode 100644 gas/testsuite/gas/hppa/parse/xmpyubug.s

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 803816b..5387173 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Fri Feb  4 23:42:14 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+	* gas/hppa/more.parse/xmpyubug.s: New test.
+	* gas/hppa/more.parse/parse.exp: Run it.
+
 Fri Feb  4 17:13:20 1994  Ken Raeburn  (raeburn@cujo.cygnus.com)
 
 	* lib/gas-defs.exp (regexp_diff): New procedure, vaguely based on
diff --git a/gas/testsuite/gas/hppa/more.parse/.Sanitize b/gas/testsuite/gas/hppa/more.parse/.Sanitize
index 2b7f3a4..bb6ee7d 100644
--- a/gas/testsuite/gas/hppa/more.parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/more.parse/.Sanitize
@@ -50,6 +50,7 @@ stdreg.s
 stringer.s
 undefbug.s
 versionbug.s
+xmpyubug.s
 
 Things-to-lose:
 
diff --git a/gas/testsuite/gas/hppa/more.parse/parse.exp b/gas/testsuite/gas/hppa/more.parse/parse.exp
index 686e305..a0dd33b 100755
--- a/gas/testsuite/gas/hppa/more.parse/parse.exp
+++ b/gas/testsuite/gas/hppa/more.parse/parse.exp
@@ -204,5 +204,9 @@ if [istarget hppa*-*-*] then {
 
     # Make sure we grok # line directives.
     gas_test "appbug.s" "" "" "Test acceptance of #line directives"
+
+    # Make sure we give errors if a floating point format is specified
+    # for an xmpyu instruction (integer multiple)
+    gas_test_error "xmpyubug.s" "" "Check for error on bogus argument to .block"
 }
 
diff --git a/gas/testsuite/gas/hppa/more.parse/xmpyubug.s b/gas/testsuite/gas/hppa/more.parse/xmpyubug.s
new file mode 100644
index 0000000..3ee7274
--- /dev/null
+++ b/gas/testsuite/gas/hppa/more.parse/xmpyubug.s
@@ -0,0 +1,17 @@
+	.SPACE $PRIVATE$
+	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+	.SPACE $TEXT$
+	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+	.SPACE $TEXT$
+	.SUBSPA $CODE$
+
+	.align 4
+; No format selector for xmpyu!
+	xmpyu,sgl %fr4,%fr5,%fr6
+	xmpyu,dbl %fr4,%fr5,%fr6
+	xmpyu,quad %fr4,%fr5,%fr6
+
+
diff --git a/gas/testsuite/gas/hppa/parse/.Sanitize b/gas/testsuite/gas/hppa/parse/.Sanitize
index 2b7f3a4..bb6ee7d 100644
--- a/gas/testsuite/gas/hppa/parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/parse/.Sanitize
@@ -50,6 +50,7 @@ stdreg.s
 stringer.s
 undefbug.s
 versionbug.s
+xmpyubug.s
 
 Things-to-lose:
 
diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp
index 686e305..a0dd33b 100755
--- a/gas/testsuite/gas/hppa/parse/parse.exp
+++ b/gas/testsuite/gas/hppa/parse/parse.exp
@@ -204,5 +204,9 @@ if [istarget hppa*-*-*] then {
 
     # Make sure we grok # line directives.
     gas_test "appbug.s" "" "" "Test acceptance of #line directives"
+
+    # Make sure we give errors if a floating point format is specified
+    # for an xmpyu instruction (integer multiple)
+    gas_test_error "xmpyubug.s" "" "Check for error on bogus argument to .block"
 }
 
diff --git a/gas/testsuite/gas/hppa/parse/xmpyubug.s b/gas/testsuite/gas/hppa/parse/xmpyubug.s
new file mode 100644
index 0000000..3ee7274
--- /dev/null
+++ b/gas/testsuite/gas/hppa/parse/xmpyubug.s
@@ -0,0 +1,17 @@
+	.SPACE $PRIVATE$
+	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
+	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
+	.SPACE $TEXT$
+	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
+	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
+
+	.SPACE $TEXT$
+	.SUBSPA $CODE$
+
+	.align 4
+; No format selector for xmpyu!
+	xmpyu,sgl %fr4,%fr5,%fr6
+	xmpyu,dbl %fr4,%fr5,%fr6
+	xmpyu,quad %fr4,%fr5,%fr6
+
+
-- 
2.7.4