diff --git a/ld/ChangeLog b/ld/ChangeLog
index b1b8cf5d1a..89eddd3648 100644
--- a/ld/ChangeLog
+++ b/ld/ChangeLog
@@ -1,3 +1,7 @@
+2018-08-18  Alan Modra  <amodra@gmail.com>
+
+	* testsuite/ld-elf/elf.exp (is_elf64): Delete.
+
 2018-08-17  H.J. Lu  <hongjiu.lu@intel.com>
 
 	PR ld/23515
diff --git a/ld/testsuite/ld-elf/elf.exp b/ld/testsuite/ld-elf/elf.exp
index cabc79daad..bb7f4b0463 100644
--- a/ld/testsuite/ld-elf/elf.exp
+++ b/ld/testsuite/ld-elf/elf.exp
@@ -73,32 +73,6 @@ run_ld_link_tests [list \
 ]
 
 
-# True if the object format is known to be 64-bit ELF.
-#
-proc is_elf64 { binary_file } {
-    global READELF
-    global READELFFLAGS
-
-    set readelf_size ""
-    catch "exec $READELF $READELFFLAGS -h $binary_file > readelf.out" got
-
-    if ![string match "" $got] then {
-	return 0
-    }
-
-    if { ![regexp "\n\[ \]*Class:\[ \]*ELF(\[0-9\]+)\n" \
-	       [file_contents readelf.out] nil readelf_size] } {
-	verbose "FAILED to determine ELF size"
-	return 0
-    }
-
-    if { $readelf_size == "64" } {
-	return 1
-    }
-
-    return 0
-}
-
 if [is_elf64 tmpdir/symbol3w.a] {
     set ASFLAGS "$ASFLAGS --defsym ALIGN=3"
 } else {