* gas/hppa/more.parse/callinfobug.s: New test.

* gas/hppa/omre.parse/parse.exp: Run it.

gas/testsuite/ChangeLog

@@ -1,5 +1,8 @@
 Wed Mar 16 11:57:07 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
+	* gas/hppa/more.parse/callinfobug.s: New test.
+	* gas/hppa/omre.parse/parse.exp: Run it.
+
 	* gas/hppa/more.parse/regpopbug.s: New test.
 	* gas/hppa/more.parse/parse.exp: Run it.
 

gas/testsuite/gas/hppa/more.parse/.Sanitize

@@ -32,6 +32,7 @@ appbug.s
 block1.s
 block2.s
 calldatabug.s
+callinfobug.s
 defbug.s
 entrybug.s
 exportbug.s

gas/testsuite/gas/hppa/more.parse/callinfobug.s

@@ -0,0 +1,7 @@
+	.space $TEXT$
+	.subspa $CODE$
+	.align 4
+	.export divu,millicode
+	.proc
+	.callinfo millicode
+	.procend

gas/testsuite/gas/hppa/more.parse/parse.exp

@@ -212,5 +212,8 @@ if [istarget hppa*-*-*] then {
 
     # Make sure gas handles various kinds of .reg pseudo-ops
     gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
+
+    # Check some bugs that have appeared in parsing .callinfo directives
+    gas_test "callinfobug.s" "" "" "Test for bugs in .callinfo directive"
 }
 

gas/testsuite/gas/hppa/parse/.Sanitize

@@ -32,6 +32,7 @@ appbug.s
 block1.s
 block2.s
 calldatabug.s
+callinfobug.s
 defbug.s
 entrybug.s
 exportbug.s

gas/testsuite/gas/hppa/parse/callinfobug.s

@@ -0,0 +1,7 @@
+	.space $TEXT$
+	.subspa $CODE$
+	.align 4
+	.export divu,millicode
+	.proc
+	.callinfo millicode
+	.procend

gas/testsuite/gas/hppa/parse/parse.exp

@@ -212,5 +212,8 @@ if [istarget hppa*-*-*] then {
 
     # Make sure gas handles various kinds of .reg pseudo-ops
     gas_test "regpopbug.s" "" "" "Test for bugs in .reg pseudo-op"
+
+    # Check some bugs that have appeared in parsing .callinfo directives
+    gas_test "callinfobug.s" "" "" "Test for bugs in .callinfo directive"
 }