diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 5bbc9d98e98..a83f4304436 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jan 12 13:41:10 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+	* gas/hppa/more.parse/procbug.s: Add test for another bug relating
+	to having a function's label follow the .PROC directive.
+
 Tue Jan 11 21:47:48 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
 	* gas/hppa/reloc/reloc.exp: Add test for cross-subspace call bug
diff --git a/gas/testsuite/gas/hppa/more.parse/procbug.s b/gas/testsuite/gas/hppa/more.parse/procbug.s
index 9a324cf4347..5ae5057f643 100755
--- a/gas/testsuite/gas/hppa/more.parse/procbug.s
+++ b/gas/testsuite/gas/hppa/more.parse/procbug.s
@@ -6,3 +6,11 @@
 	.callinfo
 divu:	stws,ma		%r4,4(%r5)		; save registers on stack
 	.procend
+
+	.export divu2,entry
+	.proc
+	.callinfo
+	.entry
+divu2:	stws,ma		%r4,4(%r5)		; save registers on stack
+	.exit
+	.procend