diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 51ebb52b0e..b99b915284 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2002-02-17  Hans-Peter Nilsson  <hp@bitrange.com>
 
+	* ld-mmix/bpo-22.d: New test.
+
 	* ld-mmix/local12.d (Sections): Match any LMA for .data, .sbss,
 	and .bss.
 
diff --git a/ld/testsuite/ld-mmix/bpo-22.d b/ld/testsuite/ld-mmix/bpo-22.d
new file mode 100644
index 0000000000..1dc1430551
--- /dev/null
+++ b/ld/testsuite/ld-mmix/bpo-22.d
@@ -0,0 +1,28 @@
+#source: start.s
+#source: bpo-1.s
+#as: -linker-allocated-gregs
+#ld: -m mmo --oformat elf64-mmix
+#objdump: -st
+
+# This weird combination of format and emulation options caused hiccups in
+# the reloc accounting machinery.
+
+.*:     file format elf64-mmix
+
+SYMBOL TABLE:
+0000000000000000 l    d  \.text	0+ 
+2000000000000000 l    d  \.data	0+ 
+2000000000000000 l    d  \.bss	0+ 
+0+7f0 l    d  \.MMIX\.reg_contents	0+ 
+0+ l    d  \*ABS\*	0+ 
+0+ l    d  \*ABS\*	0+ 
+0+ l    d  \*ABS\*	0+ 
+0+4 l       \.text	0+ x
+0+ g       \.text	0+ Main
+0+ g       \.text	0+ _start
+
+Contents of section \.text:
+ 0000 e3fd0001 232afe00                    .*
+Contents of section \.data:
+Contents of section \.MMIX\.reg_contents:
+ 07f0 00000000 0000002e                    .*