diff --git a/ld/ChangeLog b/ld/ChangeLog
index 1b98c81a6a..c51332ad5c 100644
--- a/ld/ChangeLog
+++ b/ld/ChangeLog
@@ -1,3 +1,9 @@
+2021-03-09  Jan Beulich  <jbeulich@suse.com>
+
+	* testsuite/ld-pe/reloc.s: Add entry point symbols. Increase
+	alignment to 4k.
+	* testsuite/ld-pe/reloc.d: xfail for mcore.
+
 2021-03-09  Jan Beulich  <jbeulich@suse.com>
 
 	* testsuite/ld-scripts/alignof.exp,
diff --git a/ld/testsuite/ld-pe/reloc.d b/ld/testsuite/ld-pe/reloc.d
index 55888c3bdf..eab8dfb9b0 100644
--- a/ld/testsuite/ld-pe/reloc.d
+++ b/ld/testsuite/ld-pe/reloc.d
@@ -1,6 +1,7 @@
 #name: PE base relocations
 #ld: --enable-reloc-section
 #objdump: -p
+#xfail: mcore-*-*
 
 .*:     file format .*
 
diff --git a/ld/testsuite/ld-pe/reloc.s b/ld/testsuite/ld-pe/reloc.s
index 3ed2e02e70..d1ea0a7817 100644
--- a/ld/testsuite/ld-pe/reloc.s
+++ b/ld/testsuite/ld-pe/reloc.s
@@ -1,5 +1,12 @@
+	.text
+	.global _start
+	.global _mainCRTStartup
+_start:
+_mainCRTStartup:
+	.byte 1
+
 	.data
-	.p2align 4
+	.p2align 12
 start:
 	.dc.a	__image_base__
 	.dc.a	start