Merge GDB 7.5.1

gdb/testsuite/gdb.ada/bp_range_type.exp

Index: gdb/testsuite/gdb.ada/bp_range_type.exp
diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/bp_range_type.exp
similarity index 71%
copy from gdb/testsuite/gdb.ada/rec_return.exp
copy to gdb/testsuite/gdb.ada/bp_range_type.exp
index e291d11e366b79614a19c4773784b17f19d344eb..f65e0c71edb94842e134165e2459ead7ffdb6fe3 100644
--- a/gdb/testsuite/gdb.ada/rec_return.exp
+++ b/gdb/testsuite/gdb.ada/bp_range_type.exp
@@ -1,4 +1,4 @@
-# Copyright 2010-2012 Free Software Foundation, Inc.
+# Copyright 2012 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -13,13 +13,9 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-if $tracelevel then {
-    strace $tracelevel
-}
-
 load_lib "ada.exp"
 
-set testdir "rec_return"
+set testdir "bp_range_type"
 set testfile "${testdir}/foo"
 set srcfile ${srcdir}/${subdir}/${testfile}.adb
 set binfile ${objdir}/${subdir}/${testfile}
@@ -32,12 +28,14 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
 clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
-if ![runto "foo.adb:$bp_location" ] then {
-  perror "Couldn't run ${testfile}"
-  return
-}
 
-gdb_test "print bar" \
-         "= \\(x => 42, s => \"ABCDEFGH\"\\)" \
-         "print bar"
+gdb_test "break foo.adb:$bp_location if small_value > 20" \
+         "Breakpoint $decimal at $hex: file .*foo.adb, line $decimal\\."
+
+gdb_run_cmd
+gdb_test "" \
+         "Breakpoint $decimal, foo \\(\\).*" \
+         "run to breakpoint"
 
+# Verify that we stopped at the correct iteration.
+gdb_test "print small_value" " = 25"