diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index d05b76256a..7bc1ea6c52 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2015-01-29  H.J. Lu  <hongjiu.lu@intel.com>
+
+	* lib/ld-lib.exp (ar_simple_create): Move -rc before $aropts.
+
 2015-01-29  Alan Modra  <amodra@gmail.com>
 
 	* ld-powerpc/tlsld.d, * ld-powerpc/tlsld.s: New test.
diff --git a/ld/testsuite/lib/ld-lib.exp b/ld/testsuite/lib/ld-lib.exp
index 0a25f867e0..6671719156 100644
--- a/ld/testsuite/lib/ld-lib.exp
+++ b/ld/testsuite/lib/ld-lib.exp
@@ -1058,7 +1058,7 @@ proc set_file_contents { filename contents } {
 proc ar_simple_create { ar aropts target objects } {
     remote_file host delete $target
 
-    set exec_output [run_host_cmd "$ar" "$aropts -rc $target $objects"]
+    set exec_output [run_host_cmd "$ar" "-rc $aropts $target $objects"]
     set exec_output [prune_warnings $exec_output]
 
     if [string match "" $exec_output] then {