diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index e3f99a87f2..e6f0d94575 100644
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-15  Alan Modra  <amodra@bigpond.net.au>
+
+	* binutils-all/objcopy.exp: Allow '? main', to suit powerpc64.
+
 2001-11-14  Geoffrey Keating  <geoffk@redhat.com>
 
 	* binutils-all/readelf.exp: powerpc-*-eabi* is an ELF target.
diff --git a/binutils/testsuite/binutils-all/objcopy.exp b/binutils/testsuite/binutils-all/objcopy.exp
index 972013d8aa..7c16a515a1 100644
--- a/binutils/testsuite/binutils-all/objcopy.exp
+++ b/binutils/testsuite/binutils-all/objcopy.exp
@@ -383,7 +383,7 @@ proc strip_test_with_saving_a_symbol { } {
     }
 
     set exec_output [binutils_run $NM "$NMFLAGS $objfile"]
-    if {![regexp {^([0-9a-fA-F]+)?[ ]+T main} $exec_output] \
+    if {![regexp {^([0-9a-fA-F]+)?[ ]+[T\?] main} $exec_output] \
          && ![regexp {^([0-9a-fA-F]+)?[ ]+T _main} $exec_output]} {
 	fail $test
 	return