diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 1eef53025e..991e677f71 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-10-02  Vidya Praveen  <vidyapraveen@arm.com>
+
+	* gdb.trace/entry-values.exp: Modify regular expression to scan for
+	'bl' instruction instead of 'call' for ARM and AArch64 targets.
+
 2013-10-02  Pedro Alves  <palves@redhat.com>
 
 	* gdb.dwarf2/dw2-reg-undefined.exp <pattern_rax_rbx_rcx_print,
diff --git a/gdb/testsuite/gdb.trace/entry-values.exp b/gdb/testsuite/gdb.trace/entry-values.exp
index 85306ad0bf..b36a4e4d99 100644
--- a/gdb/testsuite/gdb.trace/entry-values.exp
+++ b/gdb/testsuite/gdb.trace/entry-values.exp
@@ -75,10 +75,16 @@ gdb_test_multiple $test $test {
 set bar_length ""
 set bar_call_foo ""
 
+if { [istarget "arm*-*-*"] || [istarget "aarch64*-*-*"] } {
+    set call_insn "bl"
+} else {
+    set call_insn "call"
+}
+
 # Calculate the offset of the last instruction from the beginning.
 set test "disassemble bar"
 gdb_test_multiple $test $test {
-    -re ".*$hex <\\+$decimal>:\[ \t\]+call\[^\r\n\]+\r\n\[ \]+$hex <\\+($decimal)>:" {
+    -re ".*$hex <\\+$decimal>:\[ \t\]+$call_insn\[^\r\n\]+\r\n\[ \]+$hex <\\+($decimal)>:" {
 	set bar_call_foo $expect_out(1,string)
 	exp_continue
     }