diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 4688b388f0..a55b7e368f 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-09  Joel Brobecker  <brobecker@adacore.com>
+
+	* gdb.ada/small_reg_param.exp: Accept optional entry value
+	for parameter "w".
+
 2013-07-09  Joel Brobecker  <brobecker@adacore.com>
 
 	* gdb.ada/small_reg_param.exp: Remove trailing space.
diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp
index 4a18a9a00a..b3cf2d8d24 100644
--- a/gdb/testsuite/gdb.ada/small_reg_param.exp
+++ b/gdb/testsuite/gdb.ada/small_reg_param.exp
@@ -33,7 +33,7 @@ gdb_breakpoint "call_me"
 # Continue until we hit the breakpoint inside `Call_Me'.  We verify
 # that the parameter value is correct.
 gdb_test "continue" \
-    "Breakpoint .*, pck\\.call_me \\(w=50\\) at .*/pck.adb:.*" \
+    "Breakpoint .*, pck\\.call_me \\(w=(w@entry=)?50\\) at .*/pck.adb:.*" \
     "continue to call_me"
 
 # And just to make sure, we also verify that the parameter value