From: Jeff Law <law@redhat.com>
Date: Sun, 28 Nov 1993 06:52:28 +0000 (+0000)
Subject:         * gas/hppa/more.parse/labelbug.s: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1421609c24dd0249e7fc585bd0dd7f9e450a4848;p=binutils-gdb.git

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

diff --git a/gas/testsuite/gas/hppa/more.parse/.Sanitize b/gas/testsuite/gas/hppa/more.parse/.Sanitize
index 77e6f5aecd6..8efd08028b4 100644
--- a/gas/testsuite/gas/hppa/more.parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/more.parse/.Sanitize
@@ -37,6 +37,7 @@ exportbug.s
 exprbug.s
 fixup7bug.s
 global.s
+labelbug.s
 linesepbug.s
 lselbug.s
 nosubspace.s
diff --git a/gas/testsuite/gas/hppa/more.parse/labelbug.s b/gas/testsuite/gas/hppa/more.parse/labelbug.s
new file mode 100644
index 00000000000..783c27d1c91
--- /dev/null
+++ b/gas/testsuite/gas/hppa/more.parse/labelbug.s
@@ -0,0 +1,18 @@
+	.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
+; A comment.  This should not be interpreted as a label, but both of the
+; following statements should.
+label_without_colon
+label_with_colon:
+
+; An instruction or pseudo-op may begin anywhere after column 0.
+ b,n label_without_colon
diff --git a/gas/testsuite/gas/hppa/more.parse/parse.exp b/gas/testsuite/gas/hppa/more.parse/parse.exp
index d7de98bb3c9..1d60f94d096 100755
--- a/gas/testsuite/gas/hppa/more.parse/parse.exp
+++ b/gas/testsuite/gas/hppa/more.parse/parse.exp
@@ -197,5 +197,8 @@ if [istarget hppa*-*-*] then {
     # Make sure GAS understands a reasonable set of standard predefined
     # registers.  eg %rp, %dp, %sp, etc.
     gas_test "stdreg.s" "" "" "Test standard predefined registers"
+
+    # Make sure GAS will accept a label without a colon.
+    gas_test "labelbug.s" "" "" "Test label without colon"
 }
 
diff --git a/gas/testsuite/gas/hppa/parse/.Sanitize b/gas/testsuite/gas/hppa/parse/.Sanitize
index 77e6f5aecd6..8efd08028b4 100644
--- a/gas/testsuite/gas/hppa/parse/.Sanitize
+++ b/gas/testsuite/gas/hppa/parse/.Sanitize
@@ -37,6 +37,7 @@ exportbug.s
 exprbug.s
 fixup7bug.s
 global.s
+labelbug.s
 linesepbug.s
 lselbug.s
 nosubspace.s
diff --git a/gas/testsuite/gas/hppa/parse/labelbug.s b/gas/testsuite/gas/hppa/parse/labelbug.s
new file mode 100644
index 00000000000..783c27d1c91
--- /dev/null
+++ b/gas/testsuite/gas/hppa/parse/labelbug.s
@@ -0,0 +1,18 @@
+	.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
+; A comment.  This should not be interpreted as a label, but both of the
+; following statements should.
+label_without_colon
+label_with_colon:
+
+; An instruction or pseudo-op may begin anywhere after column 0.
+ b,n label_without_colon
diff --git a/gas/testsuite/gas/hppa/parse/parse.exp b/gas/testsuite/gas/hppa/parse/parse.exp
index d7de98bb3c9..1d60f94d096 100755
--- a/gas/testsuite/gas/hppa/parse/parse.exp
+++ b/gas/testsuite/gas/hppa/parse/parse.exp
@@ -197,5 +197,8 @@ if [istarget hppa*-*-*] then {
     # Make sure GAS understands a reasonable set of standard predefined
     # registers.  eg %rp, %dp, %sp, etc.
     gas_test "stdreg.s" "" "" "Test standard predefined registers"
+
+    # Make sure GAS will accept a label without a colon.
+    gas_test "labelbug.s" "" "" "Test label without colon"
 }