diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index f4a4f7f0ef1..0ddd7070f34 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-09  Hans-Peter Nilsson  <hp@bitrange.com>
+
+	* ld-mmix/bpo-21.d, ld-mmix/bpo-21m.d, ld-mmix/bpo-11.s: New
+	tests.
+
 2002-02-08  Alexandre Oliva  <aoliva@redhat.com>
 
 	Contribute sh64-elf.
diff --git a/ld/testsuite/ld-mmix/bpo-11.s b/ld/testsuite/ld-mmix/bpo-11.s
new file mode 100644
index 00000000000..51ed92fbfe2
--- /dev/null
+++ b/ld/testsuite/ld-mmix/bpo-11.s
@@ -0,0 +1,5 @@
+ .set i,0
+ .rept 222
+ LDA $11,_start+i*256
+ .set i,i+1
+ .endr
diff --git a/ld/testsuite/ld-mmix/bpo-21.d b/ld/testsuite/ld-mmix/bpo-21.d
new file mode 100644
index 00000000000..f208cb6a527
--- /dev/null
+++ b/ld/testsuite/ld-mmix/bpo-21.d
@@ -0,0 +1,10 @@
+#source: start.s
+#source: bpo-11.s
+#source: bpo-7.s
+#as: -linker-allocated-gregs
+#ld: -m elf64mmix
+#error: ^[^c][^h][^i][^l][^d].* undefined reference to `areg'$
+
+# A BPO reloc against an undefined symbol, with a full set of normal
+# BPO:s.
+
diff --git a/ld/testsuite/ld-mmix/bpo-21m.d b/ld/testsuite/ld-mmix/bpo-21m.d
new file mode 100644
index 00000000000..b437dd38a61
--- /dev/null
+++ b/ld/testsuite/ld-mmix/bpo-21m.d
@@ -0,0 +1,9 @@
+#source: start.s
+#source: bpo-11.s
+#source: bpo-7.s
+#as: -linker-allocated-gregs
+#ld: -m mmo
+#error: ^[^c][^h][^i][^l][^d].* undefined reference to `areg'$
+
+# A BPO reloc against an undefined symbol, with a full set of normal
+# BPO:s.