From: Jeff Law <law@redhat.com>
Date: Sat, 5 Feb 1994 07:43:29 +0000 (+0000)
Subject:         * gas/hppa/more.parse/xmpyubug.s: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4fc3b3b4938bda69b1332e1cbbccf78533ae3fce;p=binutils-gdb.git

    * gas/hppa/more.parse/xmpyubug.s: New test.
        * gas/hppa/more.parse/parse.exp: Run it.
---

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 803816bc2e1..53871737d6a 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 2b7f3a406d9..bb6ee7d69f7 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 686e3055de0..a0dd33b6464 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 00000000000..3ee727478fa
--- /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 2b7f3a406d9..bb6ee7d69f7 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 686e3055de0..a0dd33b6464 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 00000000000..3ee727478fa
--- /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
+
+