From: Simon Marchi <simon.marchi@efficios.com>
Date: Mon, 5 Dec 2022 21:38:24 +0000 (-0500)
Subject: gdb/testsuite: remove perror calls when failing to run
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=30add7ee24bf88630ee38cd73b6a1dd3aa384999;p=binutils-gdb.git

gdb/testsuite: remove perror calls when failing to run

I noticed that when running these two tests in sequence:

    Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/arrayptr.exp ...
    ERROR: GDB process no longer exists
    ERROR: Couldn't run foo-all
    Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/assign_1.exp ...

The results in gdb.sum are:

    Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/arrayptr.exp ...
    PASS: gdb.ada/arrayptr.exp: scenario=all: compilation foo.adb
    ERROR: GDB process no longer exists
    UNRESOLVED: gdb.ada/arrayptr.exp: scenario=all: gdb_breakpoint: set breakpoint at foo.adb:40 (eof)
    ERROR: Couldn't run foo-all
    Running /home/smarchi/src/binutils-gdb/gdb/testsuite/gdb.ada/assign_1.exp ...
    UNRESOLVED: gdb.ada/assign_1.exp: changing the language to ada
    PASS: gdb.ada/assign_1.exp: set convenience variable $xxx to 1

The UNRESOLVED for arrayptr.exp is fine, as GDB crashes in that test,
while trying to run to main.  However, the UNRESOLVED in assign_1.exp
doesn't make sense, GDB behaves as expected in that test:

    (gdb) set lang ada^M
    (gdb) UNRESOLVED: gdb.ada/assign_1.exp: changing the language to ada
    print $xxx := 1^M
    $1 = 1^M
    (gdb) PASS: gdb.ada/assign_1.exp: set convenience variable $xxx to 1

The problem is that arrayptr.exp calls perror when failing to run to
main, then returns.  perror makes it so that the next test (as in
pass/fail) will be recorded as UNRESOLVED.  However, here, the next test
(as in pass/fail) is in the next test (as in .exp).  Hence the spurious
UNRESOLVED in assign_1.exp.

These perror when failing to run to X are not really useful, especially
since runto records a FAIL on error, by default.  Remove all the
perrors on runto failure I could find.

When there wasn't one already, add a return statement when failing to
run, to avoid running the test of the test unnecessarily.

I thought of adding a check ran between test (in gdb_finish
probably) where we would emit a warning if errcnt > 0, meaning a test
quit and left a perror "active".  However, reading that variable would
poke into the DejaGNU internals, not sure it's a good idea.

Change-Id: I2203df6d06e199540b36f56470d1c5f1dc988f7b
---

diff --git a/gdb/testsuite/gdb.ada/access_tagged_param.exp b/gdb/testsuite/gdb.ada/access_tagged_param.exp
index 2103e4b5390..4676cbdddc3 100644
--- a/gdb/testsuite/gdb.ada/access_tagged_param.exp
+++ b/gdb/testsuite/gdb.ada/access_tagged_param.exp
@@ -29,7 +29,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" }
 clean_restart ${testfile}
 
 if {![runto "foo"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/addr_arith.exp b/gdb/testsuite/gdb.ada/addr_arith.exp
index 4e3059fcfae..82d2e6744f5 100644
--- a/gdb/testsuite/gdb.ada/addr_arith.exp
+++ b/gdb/testsuite/gdb.ada/addr_arith.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/foo_na07_019.adb]
 if {![runto "foo_na07_019.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
index ac720ffa4d3..39e12c6160a 100644
--- a/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
+++ b/gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "BREAK" ${testdir}/enum_with_gap_main.adb]
 if {![runto "enum_with_gap_main.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/arr_arr.exp b/gdb/testsuite/gdb.ada/arr_arr.exp
index 488eb006789..8358aaec52c 100644
--- a/gdb/testsuite/gdb.ada/arr_arr.exp
+++ b/gdb/testsuite/gdb.ada/arr_arr.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
index 3a6785fb095..ed1915fa098 100644
--- a/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
+++ b/gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp
@@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} {
 
     set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo_q418_043.adb]
     if {![runto "foo_q418_043.adb:$bp_location"]} {
-	perror "Couldn't run ${testfile}-${scenario}"
 	return
     }
 
diff --git a/gdb/testsuite/gdb.ada/array_bounds.exp b/gdb/testsuite/gdb.ada/array_bounds.exp
index b68e448747e..0a897d06b58 100644
--- a/gdb/testsuite/gdb.ada/array_bounds.exp
+++ b/gdb/testsuite/gdb.ada/array_bounds.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/bar.adb]
 if {![runto "bar.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 } 
 
diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp
index d8429c4413b..eefd21ae376 100644
--- a/gdb/testsuite/gdb.ada/arrayptr.exp
+++ b/gdb/testsuite/gdb.ada/arrayptr.exp
@@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} {
 
     set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
     if {![runto "foo.adb:$bp_location"]} {
-	perror "Couldn't run ${testfile}-${scenario}"
 	return
     }
 
diff --git a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
index d6eb9f5534c..98f75f76fe1 100644
--- a/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
+++ b/gdb/testsuite/gdb.ada/bp_c_mixed_case.exp
@@ -47,7 +47,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable $options] != "" } {
 clean_restart ${testfile}
 
 if {![runto "foo_h731_021"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/call_pn.exp b/gdb/testsuite/gdb.ada/call_pn.exp
index c4f81245f92..758b64abc35 100644
--- a/gdb/testsuite/gdb.ada/call_pn.exp
+++ b/gdb/testsuite/gdb.ada/call_pn.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/convvar_comp.exp b/gdb/testsuite/gdb.ada/convvar_comp.exp
index 6908bc2da4f..366ac60d7c8 100644
--- a/gdb/testsuite/gdb.ada/convvar_comp.exp
+++ b/gdb/testsuite/gdb.ada/convvar_comp.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
 clean_restart ${testfile}
 
 if {![runto "break_me"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/disc_arr_bound.exp b/gdb/testsuite/gdb.ada/disc_arr_bound.exp
index 8cbfe5d3276..e5155f33c34 100644
--- a/gdb/testsuite/gdb.ada/disc_arr_bound.exp
+++ b/gdb/testsuite/gdb.ada/disc_arr_bound.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo_n612_026.adb]
 if {![runto "foo_n612_026.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/discrete-char.exp b/gdb/testsuite/gdb.ada/discrete-char.exp
index 1d380e4d597..1896252d099 100644
--- a/gdb/testsuite/gdb.ada/discrete-char.exp
+++ b/gdb/testsuite/gdb.ada/discrete-char.exp
@@ -29,7 +29,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/main.adb]
 if {![runto "main.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/dot_all.exp b/gdb/testsuite/gdb.ada/dot_all.exp
index 6064a7d505b..0b0eba53c29 100644
--- a/gdb/testsuite/gdb.ada/dot_all.exp
+++ b/gdb/testsuite/gdb.ada/dot_all.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/formatted_ref.exp b/gdb/testsuite/gdb.ada/formatted_ref.exp
index 19a32658d98..1d780cc1b0c 100644
--- a/gdb/testsuite/gdb.ada/formatted_ref.exp
+++ b/gdb/testsuite/gdb.ada/formatted_ref.exp
@@ -44,7 +44,6 @@ proc get_address { var } {
             return $expect_out(1,string)
         }
     }
-    perror "couldn't find address of $var"
     return ""
 }
 
diff --git a/gdb/testsuite/gdb.ada/frame_args.exp b/gdb/testsuite/gdb.ada/frame_args.exp
index 9961780ad39..f3fa41f7981 100644
--- a/gdb/testsuite/gdb.ada/frame_args.exp
+++ b/gdb/testsuite/gdb.ada/frame_args.exp
@@ -31,7 +31,6 @@ set eol "\[\r\n\]+"
 set sp "\[ \t\]*"
 
 if {![runto break_me]} {
-  perror "Couldn't run ${testfile}"
   return
 } 
 
diff --git a/gdb/testsuite/gdb.ada/fun_in_declare.exp b/gdb/testsuite/gdb.ada/fun_in_declare.exp
index 4b30a777895..a0972441e98 100644
--- a/gdb/testsuite/gdb.ada/fun_in_declare.exp
+++ b/gdb/testsuite/gdb.ada/fun_in_declare.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
 clean_restart ${testfile}
 
 if {![runto_main]} {
-  perror "Couldn't run ${testfile}"
   return
 } 
 
diff --git a/gdb/testsuite/gdb.ada/ghost.exp b/gdb/testsuite/gdb.ada/ghost.exp
index 93ab507e337..412a2607683 100644
--- a/gdb/testsuite/gdb.ada/ghost.exp
+++ b/gdb/testsuite/gdb.ada/ghost.exp
@@ -28,7 +28,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/main.adb]
 if {![runto "main.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
index d512ef42651..4b3277b9061 100644
--- a/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
+++ b/gdb/testsuite/gdb.ada/info_addr_mixed_case.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/local-enum.exp b/gdb/testsuite/gdb.ada/local-enum.exp
index 908ee73b899..409ea35b162 100644
--- a/gdb/testsuite/gdb.ada/local-enum.exp
+++ b/gdb/testsuite/gdb.ada/local-enum.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/local.adb]
 if {![runto "local.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/minsyms.exp b/gdb/testsuite/gdb.ada/minsyms.exp
index 7ce2d814475..4e974392a79 100644
--- a/gdb/testsuite/gdb.ada/minsyms.exp
+++ b/gdb/testsuite/gdb.ada/minsyms.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable ""] != "" } {
 clean_restart ${testfile}
 
 if {![runto "_ada_foo_qb07_057"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/mod_from_name.exp b/gdb/testsuite/gdb.ada/mod_from_name.exp
index 8eb61565ff4..7ee7d8c467e 100644
--- a/gdb/testsuite/gdb.ada/mod_from_name.exp
+++ b/gdb/testsuite/gdb.ada/mod_from_name.exp
@@ -30,7 +30,6 @@ foreach_with_prefix scenario {all minimal} {
 
     set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
     if {![runto "foo.adb:$bp_location"]} {
-	perror "Couldn't run ${testfile}-${scenario}"
 	return
     } 
 
diff --git a/gdb/testsuite/gdb.ada/optim_drec.exp b/gdb/testsuite/gdb.ada/optim_drec.exp
index 823156cd804..51ad14d5a50 100644
--- a/gdb/testsuite/gdb.ada/optim_drec.exp
+++ b/gdb/testsuite/gdb.ada/optim_drec.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
 clean_restart ${testfile}
 
 if {![runto "foo"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/rec_comp.exp b/gdb/testsuite/gdb.ada/rec_comp.exp
index 342fe3a0e07..0c155bc6499 100644
--- a/gdb/testsuite/gdb.ada/rec_comp.exp
+++ b/gdb/testsuite/gdb.ada/rec_comp.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/bar_o203_012.adb]
 if {![runto "bar_o203_012.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/rec_return.exp b/gdb/testsuite/gdb.ada/rec_return.exp
index 723244fc576..d06fae4c71a 100644
--- a/gdb/testsuite/gdb.ada/rec_return.exp
+++ b/gdb/testsuite/gdb.ada/rec_return.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/ref_param.exp b/gdb/testsuite/gdb.ada/ref_param.exp
index 871e755ff39..6f72c91684a 100644
--- a/gdb/testsuite/gdb.ada/ref_param.exp
+++ b/gdb/testsuite/gdb.ada/ref_param.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug ]] != "" }
 clean_restart ${testfile}
 
 if {![runto pck.adb:20]} {
-  perror "Couldn't run ${testfile}"
   return
 } 
 
diff --git a/gdb/testsuite/gdb.ada/scalar_storage.exp b/gdb/testsuite/gdb.ada/scalar_storage.exp
index 106413e9528..bfb2faca6f3 100644
--- a/gdb/testsuite/gdb.ada/scalar_storage.exp
+++ b/gdb/testsuite/gdb.ada/scalar_storage.exp
@@ -30,7 +30,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/storage.adb]
 if {![runto "storage.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/set_wstr.exp b/gdb/testsuite/gdb.ada/set_wstr.exp
index 97a683dd37a..6c19af39d99 100644
--- a/gdb/testsuite/gdb.ada/set_wstr.exp
+++ b/gdb/testsuite/gdb.ada/set_wstr.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/a.adb]
 if {![runto "a.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/small_reg_param.exp b/gdb/testsuite/gdb.ada/small_reg_param.exp
index cb3c3bf4b4d..cac9a5a6184 100644
--- a/gdb/testsuite/gdb.ada/small_reg_param.exp
+++ b/gdb/testsuite/gdb.ada/small_reg_param.exp
@@ -26,7 +26,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug optimize=-
 clean_restart ${testfile}
 
 if {![runto_main]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/str_uninit.exp b/gdb/testsuite/gdb.ada/str_uninit.exp
index 96862909e87..30c7bfc34aa 100644
--- a/gdb/testsuite/gdb.ada/str_uninit.exp
+++ b/gdb/testsuite/gdb.ada/str_uninit.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/parse.adb]
 if {![runto "parse.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/taft_type.exp b/gdb/testsuite/gdb.ada/taft_type.exp
index a791cd179a6..e9210cd9448 100644
--- a/gdb/testsuite/gdb.ada/taft_type.exp
+++ b/gdb/testsuite/gdb.ada/taft_type.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
 if {![runto "p.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 } 
 
diff --git a/gdb/testsuite/gdb.ada/varsize_limit.exp b/gdb/testsuite/gdb.ada/varsize_limit.exp
index af5a394f38b..45ab865ff3d 100644
--- a/gdb/testsuite/gdb.ada/varsize_limit.exp
+++ b/gdb/testsuite/gdb.ada/varsize_limit.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/vsizelim.adb]
 if {![runto "vsizelim.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.ada/whatis_array_val.exp b/gdb/testsuite/gdb.ada/whatis_array_val.exp
index eadd6ed2da2..27febfcea54 100644
--- a/gdb/testsuite/gdb.ada/whatis_array_val.exp
+++ b/gdb/testsuite/gdb.ada/whatis_array_val.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 } 
 
diff --git a/gdb/testsuite/gdb.ada/widewide.exp b/gdb/testsuite/gdb.ada/widewide.exp
index 34f5967ec04..9db40481657 100644
--- a/gdb/testsuite/gdb.ada/widewide.exp
+++ b/gdb/testsuite/gdb.ada/widewide.exp
@@ -27,7 +27,6 @@ clean_restart ${testfile}
 
 set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 if {![runto "foo.adb:$bp_location"]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.base/all-bin.exp b/gdb/testsuite/gdb.base/all-bin.exp
index 2bb9cfe900e..b5979a47090 100644
--- a/gdb/testsuite/gdb.base/all-bin.exp
+++ b/gdb/testsuite/gdb.base/all-bin.exp
@@ -38,7 +38,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/arithmet.exp b/gdb/testsuite/gdb.base/arithmet.exp
index 4fa2ab2f888..c1fe169ae54 100644
--- a/gdb/testsuite/gdb.base/arithmet.exp
+++ b/gdb/testsuite/gdb.base/arithmet.exp
@@ -38,7 +38,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/arrayidx.exp b/gdb/testsuite/gdb.base/arrayidx.exp
index 677e4f0fcc3..ad8eed311a5 100644
--- a/gdb/testsuite/gdb.base/arrayidx.exp
+++ b/gdb/testsuite/gdb.base/arrayidx.exp
@@ -27,7 +27,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
 clean_restart ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/assign.exp b/gdb/testsuite/gdb.base/assign.exp
index 526e0638fcc..8a80b45a9a1 100644
--- a/gdb/testsuite/gdb.base/assign.exp
+++ b/gdb/testsuite/gdb.base/assign.exp
@@ -41,7 +41,6 @@ clean_restart ${binfile}
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/async.exp b/gdb/testsuite/gdb.base/async.exp
index 7630581edca..2fdeeb009d7 100644
--- a/gdb/testsuite/gdb.base/async.exp
+++ b/gdb/testsuite/gdb.base/async.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
 # set it up at a breakpoint so we can play with it
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/bfp-test.exp b/gdb/testsuite/gdb.base/bfp-test.exp
index 174152140f9..b84019ebda6 100644
--- a/gdb/testsuite/gdb.base/bfp-test.exp
+++ b/gdb/testsuite/gdb.base/bfp-test.exp
@@ -26,7 +26,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
 clean_restart ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/call-ar-st.exp b/gdb/testsuite/gdb.base/call-ar-st.exp
index a5599d741a6..754ed7c42c3 100644
--- a/gdb/testsuite/gdb.base/call-ar-st.exp
+++ b/gdb/testsuite/gdb.base/call-ar-st.exp
@@ -45,7 +45,6 @@ gdb_test_no_output "set width 0"
 
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/call-rt-st.exp b/gdb/testsuite/gdb.base/call-rt-st.exp
index 63792ee73e5..40786d874b0 100644
--- a/gdb/testsuite/gdb.base/call-rt-st.exp
+++ b/gdb/testsuite/gdb.base/call-rt-st.exp
@@ -46,7 +46,6 @@ gdb_test_no_output "set width 0"
 
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/call-strs.exp b/gdb/testsuite/gdb.base/call-strs.exp
index f9335815da3..346d516a026 100644
--- a/gdb/testsuite/gdb.base/call-strs.exp
+++ b/gdb/testsuite/gdb.base/call-strs.exp
@@ -43,7 +43,6 @@ gdb_test_no_output "set print symbol off"
 gdb_test_no_output "set width 0"
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index 2a46d4fd21b..f8fbf607da7 100644
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -58,7 +58,7 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-        perror "tests suppressed"
+    return
 }
 
 set timeout 30
diff --git a/gdb/testsuite/gdb.base/cond-expr.exp b/gdb/testsuite/gdb.base/cond-expr.exp
index 36754f92158..34ccac23aa7 100644
--- a/gdb/testsuite/gdb.base/cond-expr.exp
+++ b/gdb/testsuite/gdb.base/cond-expr.exp
@@ -43,7 +43,6 @@ clean_restart ${binfile}
 
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/consecutive.exp b/gdb/testsuite/gdb.base/consecutive.exp
index b517b42e623..fdad00b1802 100644
--- a/gdb/testsuite/gdb.base/consecutive.exp
+++ b/gdb/testsuite/gdb.base/consecutive.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/constvars.exp b/gdb/testsuite/gdb.base/constvars.exp
index 8d1af0b4fdc..40ce0a475f6 100644
--- a/gdb/testsuite/gdb.base/constvars.exp
+++ b/gdb/testsuite/gdb.base/constvars.exp
@@ -41,7 +41,6 @@ clean_restart ${binfile}
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/ctf-constvars.exp b/gdb/testsuite/gdb.base/ctf-constvars.exp
index 4a8307e05bf..cd0198da154 100644
--- a/gdb/testsuite/gdb.base/ctf-constvars.exp
+++ b/gdb/testsuite/gdb.base/ctf-constvars.exp
@@ -47,7 +47,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} \
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/dfp-test.exp b/gdb/testsuite/gdb.base/dfp-test.exp
index 0d7314f247b..3f91358860f 100644
--- a/gdb/testsuite/gdb.base/dfp-test.exp
+++ b/gdb/testsuite/gdb.base/dfp-test.exp
@@ -31,7 +31,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {quie
 clean_restart ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/enum_cond.exp b/gdb/testsuite/gdb.base/enum_cond.exp
index bb5d6c29548..cfe5af64148 100644
--- a/gdb/testsuite/gdb.base/enum_cond.exp
+++ b/gdb/testsuite/gdb.base/enum_cond.exp
@@ -28,7 +28,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $opts
 clean_restart $testfile
 
 if {![runto_main]} {
-    perror "could not run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/eval-skip.exp b/gdb/testsuite/gdb.base/eval-skip.exp
index fe6f7f0f52a..baea1deb3d6 100644
--- a/gdb/testsuite/gdb.base/eval-skip.exp
+++ b/gdb/testsuite/gdb.base/eval-skip.exp
@@ -43,7 +43,6 @@ clean_restart ${binfile}
 
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/exe-lock.exp b/gdb/testsuite/gdb.base/exe-lock.exp
index 1276ec0984f..c15d8b4c1df 100644
--- a/gdb/testsuite/gdb.base/exe-lock.exp
+++ b/gdb/testsuite/gdb.base/exe-lock.exp
@@ -38,7 +38,6 @@ if { ! [file exists $binfile] } {
     }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/exprs.exp b/gdb/testsuite/gdb.base/exprs.exp
index 7b081ec91f9..5bf03bf1320 100644
--- a/gdb/testsuite/gdb.base/exprs.exp
+++ b/gdb/testsuite/gdb.base/exprs.exp
@@ -33,7 +33,6 @@ clean_restart ${binfile}
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/fileio.exp b/gdb/testsuite/gdb.base/fileio.exp
index 18e429c7553..95f4b4ef45e 100644
--- a/gdb/testsuite/gdb.base/fileio.exp
+++ b/gdb/testsuite/gdb.base/fileio.exp
@@ -56,7 +56,6 @@ gdb_test_no_output "set print address off"
 gdb_test_no_output "set width 0"
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/float.exp b/gdb/testsuite/gdb.base/float.exp
index b9c5057c6ee..5f17aea8cd3 100644
--- a/gdb/testsuite/gdb.base/float.exp
+++ b/gdb/testsuite/gdb.base/float.exp
@@ -30,7 +30,6 @@ if { [prepare_for_testing "failed to prepare" float float.c] } {
 # Set it up at a breakpoint so we have its registers.
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/float128.exp b/gdb/testsuite/gdb.base/float128.exp
index a4d94d4c162..21a1a99f6ee 100644
--- a/gdb/testsuite/gdb.base/float128.exp
+++ b/gdb/testsuite/gdb.base/float128.exp
@@ -33,7 +33,6 @@ if { [do_compile] != "" && [do_compile {-mfloat128}] != "" } {
 clean_restart ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/floatn.exp b/gdb/testsuite/gdb.base/floatn.exp
index 58be8eb4c37..ec1bfd4b92c 100644
--- a/gdb/testsuite/gdb.base/floatn.exp
+++ b/gdb/testsuite/gdb.base/floatn.exp
@@ -33,7 +33,6 @@ if { [do_compile] != "" && [do_compile {-mfloat128}] != "" } {
 clean_restart ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/frame-args.exp b/gdb/testsuite/gdb.base/frame-args.exp
index adc2a9e8bb8..1ddb9a0fe93 100644
--- a/gdb/testsuite/gdb.base/frame-args.exp
+++ b/gdb/testsuite/gdb.base/frame-args.exp
@@ -22,7 +22,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debu
 clean_restart ${binfile}
 
 if {![runto break_me]} {
-  perror "Couldn't run ${testfile}"
   return
 }
 
diff --git a/gdb/testsuite/gdb.base/gdb1821.exp b/gdb/testsuite/gdb.base/gdb1821.exp
index 40dcb0cc75b..ea96136edf5 100644
--- a/gdb/testsuite/gdb.base/gdb1821.exp
+++ b/gdb/testsuite/gdb.base/gdb1821.exp
@@ -29,7 +29,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 } 
 gdb_test "print /x bar" "{x__0 = 0x0, y__0 = 0x0, z__1 = 0x0}" 
diff --git a/gdb/testsuite/gdb.base/interrupt.exp b/gdb/testsuite/gdb.base/interrupt.exp
index 143116c4124..fca1772b0f1 100644
--- a/gdb/testsuite/gdb.base/interrupt.exp
+++ b/gdb/testsuite/gdb.base/interrupt.exp
@@ -39,7 +39,6 @@ gdb_start
 
 
 if {![file exists $binfile]} {
-    perror "$binfile does not exist."
     return 0
 } else {
     gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.base/jump.exp b/gdb/testsuite/gdb.base/jump.exp
index 527a1ae22d5..21375852a17 100644
--- a/gdb/testsuite/gdb.base/jump.exp
+++ b/gdb/testsuite/gdb.base/jump.exp
@@ -30,7 +30,6 @@ if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
 clean_restart ${binfile}
 
 if {![runto_main]} {
-  perror "Couldn't run to main"
   return -1
 }
 
diff --git a/gdb/testsuite/gdb.base/logical.exp b/gdb/testsuite/gdb.base/logical.exp
index 25eb0711b82..a0fe2b01fc5 100644
--- a/gdb/testsuite/gdb.base/logical.exp
+++ b/gdb/testsuite/gdb.base/logical.exp
@@ -40,7 +40,6 @@ clean_restart ${binfile}
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp
index 981c2f626ac..0025139f404 100644
--- a/gdb/testsuite/gdb.base/maint.exp
+++ b/gdb/testsuite/gdb.base/maint.exp
@@ -114,7 +114,7 @@ gdb_test "mt set per off" ".*" "mt set per off for expand-symtabs"
 gdb_load ${binfile}
 
 if {![runto_main]} {
-        perror "tests suppressed"
+    return
 }
 
 # If we're using .gdb_index or .debug_names there will be no psymtabs.
diff --git a/gdb/testsuite/gdb.base/miscexprs.exp b/gdb/testsuite/gdb.base/miscexprs.exp
index 1cf121751b4..a344a9b3e10 100644
--- a/gdb/testsuite/gdb.base/miscexprs.exp
+++ b/gdb/testsuite/gdb.base/miscexprs.exp
@@ -51,7 +51,6 @@ clean_restart ${binfile}
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/nested-subp1.exp b/gdb/testsuite/gdb.base/nested-subp1.exp
index dc96e97d8a3..61f35e02155 100644
--- a/gdb/testsuite/gdb.base/nested-subp1.exp
+++ b/gdb/testsuite/gdb.base/nested-subp1.exp
@@ -41,7 +41,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${testcase}.c" \
 
 clean_restart "${testcase}"
 if ![runto_main] {
-    perror "could not run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/nested-subp2.exp b/gdb/testsuite/gdb.base/nested-subp2.exp
index ac41b55ffdc..642d3f34227 100644
--- a/gdb/testsuite/gdb.base/nested-subp2.exp
+++ b/gdb/testsuite/gdb.base/nested-subp2.exp
@@ -50,7 +50,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${testcase}.c" \
 
 clean_restart "${testcase}"
 if ![runto_main] {
-    perror "could not run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/nested-subp3.exp b/gdb/testsuite/gdb.base/nested-subp3.exp
index d0c8583ebf0..ae676e444fe 100644
--- a/gdb/testsuite/gdb.base/nested-subp3.exp
+++ b/gdb/testsuite/gdb.base/nested-subp3.exp
@@ -50,7 +50,6 @@ if { [gdb_compile "${srcdir}/${subdir}/${testcase}.c" \
 
 clean_restart "${testcase}"
 if ![runto_main] {
-    perror "could not run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/opaque.exp b/gdb/testsuite/gdb.base/opaque.exp
index 4d3f11b32a9..cdf6ba00622 100644
--- a/gdb/testsuite/gdb.base/opaque.exp
+++ b/gdb/testsuite/gdb.base/opaque.exp
@@ -111,7 +111,7 @@ gdb_load ${binfile}
 
 # Run to main, where struct foo is incomplete.
 if ![runto_main] {
-    perror "cannot run to breakpoint at main"
+    return
 }
 
 
diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp
index 191c842af24..b75119ba0c4 100644
--- a/gdb/testsuite/gdb.base/pc-fp.exp
+++ b/gdb/testsuite/gdb.base/pc-fp.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug nowarning
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/permissions.exp b/gdb/testsuite/gdb.base/permissions.exp
index af6c7f47ac8..28af5c6043e 100644
--- a/gdb/testsuite/gdb.base/permissions.exp
+++ b/gdb/testsuite/gdb.base/permissions.exp
@@ -82,7 +82,6 @@ gdb_test_no_output "set non-stop off"
 gdb_load ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/pointers.exp b/gdb/testsuite/gdb.base/pointers.exp
index 5fb7cf67023..b6014b45f6a 100644
--- a/gdb/testsuite/gdb.base/pointers.exp
+++ b/gdb/testsuite/gdb.base/pointers.exp
@@ -40,7 +40,6 @@ clean_restart ${binfile}
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/prologue.exp b/gdb/testsuite/gdb.base/prologue.exp
index 9d5d40a8a42..682ba7d5b0d 100644
--- a/gdb/testsuite/gdb.base/prologue.exp
+++ b/gdb/testsuite/gdb.base/prologue.exp
@@ -26,7 +26,6 @@ if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
 clean_restart ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/readnever.exp b/gdb/testsuite/gdb.base/readnever.exp
index f475633df3c..60e4d4fe071 100644
--- a/gdb/testsuite/gdb.base/readnever.exp
+++ b/gdb/testsuite/gdb.base/readnever.exp
@@ -35,7 +35,6 @@ save_vars { GDBFLAGS } {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/relational.exp b/gdb/testsuite/gdb.base/relational.exp
index 98f43791d5c..7359f78bfdd 100644
--- a/gdb/testsuite/gdb.base/relational.exp
+++ b/gdb/testsuite/gdb.base/relational.exp
@@ -34,7 +34,6 @@ if { [prepare_for_testing "failed to prepare" relational int-type.c {debug nowar
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp
index 673df0a188b..f05bd807349 100644
--- a/gdb/testsuite/gdb.base/setvar.exp
+++ b/gdb/testsuite/gdb.base/setvar.exp
@@ -36,7 +36,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
 gdb_test_no_output "set print sevenbit-strings" 
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/shlib-call.exp b/gdb/testsuite/gdb.base/shlib-call.exp
index 5db6b128536..b148e91520e 100644
--- a/gdb/testsuite/gdb.base/shlib-call.exp
+++ b/gdb/testsuite/gdb.base/shlib-call.exp
@@ -62,7 +62,7 @@ gdb_load_shlib $lib2
 
 
 if {![runto_main]} {
-        perror "C function calling tests suppressed"
+    return
 }
 
 
diff --git a/gdb/testsuite/gdb.base/sizeof.exp b/gdb/testsuite/gdb.base/sizeof.exp
index 7cdbace56c5..f8bf6a5e35e 100644
--- a/gdb/testsuite/gdb.base/sizeof.exp
+++ b/gdb/testsuite/gdb.base/sizeof.exp
@@ -30,7 +30,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/store.exp b/gdb/testsuite/gdb.base/store.exp
index 6fc22f27c55..188e50794ec 100644
--- a/gdb/testsuite/gdb.base/store.exp
+++ b/gdb/testsuite/gdb.base/store.exp
@@ -27,7 +27,6 @@ if { [prepare_for_testing "failed to prepare" $executable $srcfile] } {
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/varargs.exp b/gdb/testsuite/gdb.base/varargs.exp
index a7807ea469d..d6dc56ab1d6 100644
--- a/gdb/testsuite/gdb.base/varargs.exp
+++ b/gdb/testsuite/gdb.base/varargs.exp
@@ -59,7 +59,6 @@ if [gdb_skip_stdio_test "varargs.exp"] {
 }
 
 if {![runto test]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/volatile.exp b/gdb/testsuite/gdb.base/volatile.exp
index 7fda22647c3..2338473c662 100644
--- a/gdb/testsuite/gdb.base/volatile.exp
+++ b/gdb/testsuite/gdb.base/volatile.exp
@@ -43,7 +43,6 @@ if { [prepare_for_testing "failed to prepare" volatile constvars.c] } {
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.base/whatis-exp.exp b/gdb/testsuite/gdb.base/whatis-exp.exp
index 132eee7f5a1..df13dd11393 100644
--- a/gdb/testsuite/gdb.base/whatis-exp.exp
+++ b/gdb/testsuite/gdb.base/whatis-exp.exp
@@ -38,7 +38,6 @@ if { [prepare_for_testing "failed to prepare" whatis-exp int-type.c {debug nowar
 #
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/ambiguous.exp b/gdb/testsuite/gdb.cp/ambiguous.exp
index 0f04668cbab..5d0d2f88b6e 100644
--- a/gdb/testsuite/gdb.cp/ambiguous.exp
+++ b/gdb/testsuite/gdb.cp/ambiguous.exp
@@ -37,7 +37,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/anon-ns.exp b/gdb/testsuite/gdb.cp/anon-ns.exp
index 852d9bc2c40..bab7717b978 100644
--- a/gdb/testsuite/gdb.cp/anon-ns.exp
+++ b/gdb/testsuite/gdb.cp/anon-ns.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile "$srcfile $srcfile2" {c++
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/anon-union.exp b/gdb/testsuite/gdb.cp/anon-union.exp
index 9f18545bbf8..fd51d790938 100644
--- a/gdb/testsuite/gdb.cp/anon-union.exp
+++ b/gdb/testsuite/gdb.cp/anon-union.exp
@@ -32,7 +32,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     continue
 }
 
diff --git a/gdb/testsuite/gdb.cp/breakpoint.exp b/gdb/testsuite/gdb.cp/breakpoint.exp
index e1f2d4c5dc5..31952b65cd6 100644
--- a/gdb/testsuite/gdb.cp/breakpoint.exp
+++ b/gdb/testsuite/gdb.cp/breakpoint.exp
@@ -33,7 +33,6 @@ proc test_breakpoint {name} {
     # Restart the program every time, so that a single failure doesn't
     # lead to a cascade.
     if {![runto_main]} {
-	perror "couldn't run to main when testing ${name}"
 	return -code continue
     } else {
 	gdb_breakpoint "${name}"
diff --git a/gdb/testsuite/gdb.cp/bs15503.exp b/gdb/testsuite/gdb.cp/bs15503.exp
index f00421a6702..b50333fc4b4 100644
--- a/gdb/testsuite/gdb.cp/bs15503.exp
+++ b/gdb/testsuite/gdb.cp/bs15503.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/casts.exp b/gdb/testsuite/gdb.cp/casts.exp
index 43851d43aeb..f98f844ef92 100644
--- a/gdb/testsuite/gdb.cp/casts.exp
+++ b/gdb/testsuite/gdb.cp/casts.exp
@@ -34,7 +34,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
@@ -182,7 +181,6 @@ if {[prepare_for_testing "failed to prepare" ${testfile}03 $srcfile2 \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
    return
 }
 
diff --git a/gdb/testsuite/gdb.cp/class2.exp b/gdb/testsuite/gdb.cp/class2.exp
index 9392e259be4..69e9809820e 100644
--- a/gdb/testsuite/gdb.cp/class2.exp
+++ b/gdb/testsuite/gdb.cp/class2.exp
@@ -35,7 +35,6 @@ gdb_test_no_output "set print object off"
 gdb_test_no_output "set print symbol off"
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/classes.exp b/gdb/testsuite/gdb.cp/classes.exp
index beac2681749..c6d9c05354e 100644
--- a/gdb/testsuite/gdb.cp/classes.exp
+++ b/gdb/testsuite/gdb.cp/classes.exp
@@ -652,7 +652,6 @@ proc do_tests {} {
     gdb_test_no_output "set width 0" ""
 
     if {![runto_main]} {
-	perror "couldn't run to breakpoint"
 	return
     }
 
diff --git a/gdb/testsuite/gdb.cp/constexpr-field.exp b/gdb/testsuite/gdb.cp/constexpr-field.exp
index b1ecf13918d..f534961bc97 100644
--- a/gdb/testsuite/gdb.cp/constexpr-field.exp
+++ b/gdb/testsuite/gdb.cp/constexpr-field.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/converts.exp b/gdb/testsuite/gdb.cp/converts.exp
index ea7a2f45d2f..9e4b6ea4d59 100644
--- a/gdb/testsuite/gdb.cp/converts.exp
+++ b/gdb/testsuite/gdb.cp/converts.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 ############################################
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/ctti.exp b/gdb/testsuite/gdb.cp/ctti.exp
index 4a2012e4a05..aacda45c325 100644
--- a/gdb/testsuite/gdb.cp/ctti.exp
+++ b/gdb/testsuite/gdb.cp/ctti.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/derivation.exp b/gdb/testsuite/gdb.cp/derivation.exp
index f5d20a00a3f..67ec4c11fe0 100644
--- a/gdb/testsuite/gdb.cp/derivation.exp
+++ b/gdb/testsuite/gdb.cp/derivation.exp
@@ -56,7 +56,6 @@ with_test_prefix "before run" {
 # Set it up at a breakpoint so we can play with the variable values.
 
 if {![runto 'marker1']} {
-    perror "couldn't run to marker1"
     return
 }
 
@@ -266,7 +265,6 @@ gdb_test "ptype N::Derived::value_type" "type = int"
 
 # Now run to N::Derived::doit and get the type of "value_type"
 if {![runto "N::Derived::doit"]} {
-    perror "couldn't run to N::Derived::doit"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/disasm-func-name.exp b/gdb/testsuite/gdb.cp/disasm-func-name.exp
index 45f18abb4e6..bfc1739c6b4 100644
--- a/gdb/testsuite/gdb.cp/disasm-func-name.exp
+++ b/gdb/testsuite/gdb.cp/disasm-func-name.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/dispcxx.exp b/gdb/testsuite/gdb.cp/dispcxx.exp
index 9d2e340083f..e12b082135f 100644
--- a/gdb/testsuite/gdb.cp/dispcxx.exp
+++ b/gdb/testsuite/gdb.cp/dispcxx.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 } 
 
diff --git a/gdb/testsuite/gdb.cp/filename.exp b/gdb/testsuite/gdb.cp/filename.exp
index 6d97ee51257..91ee3308c12 100644
--- a/gdb/testsuite/gdb.cp/filename.exp
+++ b/gdb/testsuite/gdb.cp/filename.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/fpointer.exp b/gdb/testsuite/gdb.cp/fpointer.exp
index 5fc99055a2c..b7befe92eb1 100644
--- a/gdb/testsuite/gdb.cp/fpointer.exp
+++ b/gdb/testsuite/gdb.cp/fpointer.exp
@@ -23,7 +23,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/gdb1355.exp b/gdb/testsuite/gdb.cp/gdb1355.exp
index e18bcc18f17..cd4ee9bad77 100644
--- a/gdb/testsuite/gdb.cp/gdb1355.exp
+++ b/gdb/testsuite/gdb.cp/gdb1355.exp
@@ -34,7 +34,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 } 
 
diff --git a/gdb/testsuite/gdb.cp/gdb2384.exp b/gdb/testsuite/gdb.cp/gdb2384.exp
index 7fc5a5ba0f8..e08ed9cb156 100644
--- a/gdb/testsuite/gdb.cp/gdb2384.exp
+++ b/gdb/testsuite/gdb.cp/gdb2384.exp
@@ -39,7 +39,6 @@ gdb_load_shlib ${sofile}
 
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return -1
 }
 
diff --git a/gdb/testsuite/gdb.cp/gdb2495.exp b/gdb/testsuite/gdb.cp/gdb2495.exp
index 6ade5d91d4e..b2305a14e51 100644
--- a/gdb/testsuite/gdb.cp/gdb2495.exp
+++ b/gdb/testsuite/gdb.cp/gdb2495.exp
@@ -52,7 +52,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
@@ -97,7 +96,6 @@ gdb_test "p exceptions.throw_function()" \
 
 # Restart the inferior back at main.
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/impl-this.exp b/gdb/testsuite/gdb.cp/impl-this.exp
index 4a11fb21823..9ce409ee10e 100644
--- a/gdb/testsuite/gdb.cp/impl-this.exp
+++ b/gdb/testsuite/gdb.cp/impl-this.exp
@@ -52,7 +52,6 @@ with_test_prefix "before run" {
 
 # Run to D::f.
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/inherit.exp b/gdb/testsuite/gdb.cp/inherit.exp
index c3cfefc803c..e1099fe5ed5 100644
--- a/gdb/testsuite/gdb.cp/inherit.exp
+++ b/gdb/testsuite/gdb.cp/inherit.exp
@@ -678,7 +678,6 @@ proc do_tests { } {
     gdb_test_no_output "set width 0"
 
     if {![runto_main]} {
-	perror "couldn't run to main"
 	return
     }
 
@@ -689,7 +688,6 @@ proc do_tests { } {
     test_ptype_mvi
 
     if {![runto 'inheritance2']} {
-	perror "couldn't run to inheritance2"
 	return
     }
 
@@ -708,7 +706,6 @@ proc do_tests { } {
     test_print_anon_union
 
     if { ![runto 'inheritance4'] } {
-	perror "couldn't run to inheritance4"
 	return
     }
 
diff --git a/gdb/testsuite/gdb.cp/iostream.exp b/gdb/testsuite/gdb.cp/iostream.exp
index 5189a0dd3ed..aa7c5359e69 100644
--- a/gdb/testsuite/gdb.cp/iostream.exp
+++ b/gdb/testsuite/gdb.cp/iostream.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if ![runto_main] {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/koenig.exp b/gdb/testsuite/gdb.cp/koenig.exp
index 912a7eaadc7..60aa130d006 100644
--- a/gdb/testsuite/gdb.cp/koenig.exp
+++ b/gdb/testsuite/gdb.cp/koenig.exp
@@ -23,7 +23,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
 ############################################
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/local.exp b/gdb/testsuite/gdb.cp/local.exp
index 351f39f6365..378a5c31cc3 100644
--- a/gdb/testsuite/gdb.cp/local.exp
+++ b/gdb/testsuite/gdb.cp/local.exp
@@ -39,12 +39,10 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
 if {![runto 'marker1']} {
-    perror "couldn't run to marker1"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/m-data.exp b/gdb/testsuite/gdb.cp/m-data.exp
index aca98c7c4c7..282b33a1f3f 100644
--- a/gdb/testsuite/gdb.cp/m-data.exp
+++ b/gdb/testsuite/gdb.cp/m-data.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/m-static.exp b/gdb/testsuite/gdb.cp/m-static.exp
index 228c120fb7b..1acaf13ce90 100644
--- a/gdb/testsuite/gdb.cp/m-static.exp
+++ b/gdb/testsuite/gdb.cp/m-static.exp
@@ -39,7 +39,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/many-args.exp b/gdb/testsuite/gdb.cp/many-args.exp
index aba1e78a561..c9c02f44122 100644
--- a/gdb/testsuite/gdb.cp/many-args.exp
+++ b/gdb/testsuite/gdb.cp/many-args.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if ![runto_main] {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/mb-ctor.exp b/gdb/testsuite/gdb.cp/mb-ctor.exp
index 3bf5ee3ebad..f60d071ead4 100644
--- a/gdb/testsuite/gdb.cp/mb-ctor.exp
+++ b/gdb/testsuite/gdb.cp/mb-ctor.exp
@@ -32,7 +32,6 @@ if {[test_compiler_info {clang-*-*} c++]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/member-name.exp b/gdb/testsuite/gdb.cp/member-name.exp
index 7e413cac6f4..6e3e0f07ae2 100644
--- a/gdb/testsuite/gdb.cp/member-name.exp
+++ b/gdb/testsuite/gdb.cp/member-name.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/member-ptr.exp b/gdb/testsuite/gdb.cp/member-ptr.exp
index 8e20c018203..abb20916a59 100644
--- a/gdb/testsuite/gdb.cp/member-ptr.exp
+++ b/gdb/testsuite/gdb.cp/member-ptr.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/meth-typedefs.exp b/gdb/testsuite/gdb.cp/meth-typedefs.exp
index c11e9916cb3..b357e36c7bc 100644
--- a/gdb/testsuite/gdb.cp/meth-typedefs.exp
+++ b/gdb/testsuite/gdb.cp/meth-typedefs.exp
@@ -41,7 +41,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/method.exp b/gdb/testsuite/gdb.cp/method.exp
index 07a17b013b6..7a3227b461c 100644
--- a/gdb/testsuite/gdb.cp/method.exp
+++ b/gdb/testsuite/gdb.cp/method.exp
@@ -44,7 +44,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/method2.exp b/gdb/testsuite/gdb.cp/method2.exp
index ad0129cdc19..c657b38a9a2 100644
--- a/gdb/testsuite/gdb.cp/method2.exp
+++ b/gdb/testsuite/gdb.cp/method2.exp
@@ -27,7 +27,6 @@ if  {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/namespace-nested-import.exp b/gdb/testsuite/gdb.cp/namespace-nested-import.exp
index a08a4e008df..43c6fcfb497 100644
--- a/gdb/testsuite/gdb.cp/namespace-nested-import.exp
+++ b/gdb/testsuite/gdb.cp/namespace-nested-import.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # been imported.
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp
index 2f3a766fd21..f2eb2a48ae6 100644
--- a/gdb/testsuite/gdb.cp/namespace.exp
+++ b/gdb/testsuite/gdb.cp/namespace.exp
@@ -47,12 +47,10 @@ gdb_test "show lang" "auto; currently c\\+\\+.*"
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
 if {![runto 'marker1']} {
-    perror "couldn't run to marker1"
     return
 }
 
@@ -193,7 +191,6 @@ gdb_test_multiple $test $test {
 # namespace.
 
 if {![runto "C::D::marker2"]} {
-    perror "couldn't run to marker2"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/nextoverthrow.exp b/gdb/testsuite/gdb.cp/nextoverthrow.exp
index 58e54f849e0..fe6445cf96d 100644
--- a/gdb/testsuite/gdb.cp/nextoverthrow.exp
+++ b/gdb/testsuite/gdb.cp/nextoverthrow.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 } 
 
diff --git a/gdb/testsuite/gdb.cp/nsdecl.exp b/gdb/testsuite/gdb.cp/nsdecl.exp
index d1859f874f1..1b12917d986 100644
--- a/gdb/testsuite/gdb.cp/nsdecl.exp
+++ b/gdb/testsuite/gdb.cp/nsdecl.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/nsimport.exp b/gdb/testsuite/gdb.cp/nsimport.exp
index 56a74e73ff1..61a8d6d269f 100644
--- a/gdb/testsuite/gdb.cp/nsimport.exp
+++ b/gdb/testsuite/gdb.cp/nsimport.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # the function.
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/nsnested.exp b/gdb/testsuite/gdb.cp/nsnested.exp
index 01aba767f7f..d9e5b6ff543 100644
--- a/gdb/testsuite/gdb.cp/nsnested.exp
+++ b/gdb/testsuite/gdb.cp/nsnested.exp
@@ -21,7 +21,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 
 ############################################
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/nsnoimports.exp b/gdb/testsuite/gdb.cp/nsnoimports.exp
index 11bcdaed834..e5d3186cc4b 100644
--- a/gdb/testsuite/gdb.cp/nsnoimports.exp
+++ b/gdb/testsuite/gdb.cp/nsnoimports.exp
@@ -21,7 +21,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 
 ############################################
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/nsrecurs.exp b/gdb/testsuite/gdb.cp/nsrecurs.exp
index 30eab175df3..b1592ff4a4c 100644
--- a/gdb/testsuite/gdb.cp/nsrecurs.exp
+++ b/gdb/testsuite/gdb.cp/nsrecurs.exp
@@ -21,7 +21,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/nsstress.exp b/gdb/testsuite/gdb.cp/nsstress.exp
index 2ff88791180..3fbca5d20f2 100644
--- a/gdb/testsuite/gdb.cp/nsstress.exp
+++ b/gdb/testsuite/gdb.cp/nsstress.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     continue
 }
 
diff --git a/gdb/testsuite/gdb.cp/nsusing.exp b/gdb/testsuite/gdb.cp/nsusing.exp
index f767b6b8c58..18bb28208b6 100644
--- a/gdb/testsuite/gdb.cp/nsusing.exp
+++ b/gdb/testsuite/gdb.cp/nsusing.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # Test printing of namespace imported within the function.
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     continue
 }
 
diff --git a/gdb/testsuite/gdb.cp/operator.exp b/gdb/testsuite/gdb.cp/operator.exp
index b5609ba687a..54c8cbb7573 100644
--- a/gdb/testsuite/gdb.cp/operator.exp
+++ b/gdb/testsuite/gdb.cp/operator.exp
@@ -23,7 +23,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
 ############################################
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/oranking.exp b/gdb/testsuite/gdb.cp/oranking.exp
index b9aa27dee57..07c3f79e275 100644
--- a/gdb/testsuite/gdb.cp/oranking.exp
+++ b/gdb/testsuite/gdb.cp/oranking.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 ############################################
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp
index 4dcd0efc171..fde9d73c90b 100644
--- a/gdb/testsuite/gdb.cp/overload.exp
+++ b/gdb/testsuite/gdb.cp/overload.exp
@@ -35,7 +35,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # Set it up at a breakpoint so we can play with the variable values.
 
 if {![runto 'marker1']} {
-    perror "couldn't run to marker1"
     continue
 }
 
@@ -360,7 +359,6 @@ with_test_prefix "list all overloads" {
 }
 
 if {![runto 'XXX::marker2']} {
-    perror "couldn't run to XXX::marker2"
     continue
 }
 
diff --git a/gdb/testsuite/gdb.cp/ovldbreak.exp b/gdb/testsuite/gdb.cp/ovldbreak.exp
index 0ed9eae055b..94b58a5080d 100644
--- a/gdb/testsuite/gdb.cp/ovldbreak.exp
+++ b/gdb/testsuite/gdb.cp/ovldbreak.exp
@@ -39,7 +39,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/ovsrch.exp b/gdb/testsuite/gdb.cp/ovsrch.exp
index 767d12bce1d..32ac7ce72d0 100644
--- a/gdb/testsuite/gdb.cp/ovsrch.exp
+++ b/gdb/testsuite/gdb.cp/ovsrch.exp
@@ -63,7 +63,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr-1023.exp b/gdb/testsuite/gdb.cp/pr-1023.exp
index 390459a0bac..0cd310b7c34 100644
--- a/gdb/testsuite/gdb.cp/pr-1023.exp
+++ b/gdb/testsuite/gdb.cp/pr-1023.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr-1210.exp b/gdb/testsuite/gdb.cp/pr-1210.exp
index c74e7aa1dbc..5fabf6f8a44 100644
--- a/gdb/testsuite/gdb.cp/pr-1210.exp
+++ b/gdb/testsuite/gdb.cp/pr-1210.exp
@@ -30,7 +30,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr-574.exp b/gdb/testsuite/gdb.cp/pr-574.exp
index 32c7f634940..06b96ccc0e9 100644
--- a/gdb/testsuite/gdb.cp/pr-574.exp
+++ b/gdb/testsuite/gdb.cp/pr-574.exp
@@ -39,7 +39,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile $flags]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr10728.exp b/gdb/testsuite/gdb.cp/pr10728.exp
index 8051eae71da..07db26a6428 100644
--- a/gdb/testsuite/gdb.cp/pr10728.exp
+++ b/gdb/testsuite/gdb.cp/pr10728.exp
@@ -43,7 +43,6 @@ if  { [gdb_compile "${tfx}.o ${tfy}.o" ${binfile} executable {debug c++}] != ""
 clean_restart $binfile
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr12028.exp b/gdb/testsuite/gdb.cp/pr12028.exp
index c9583bd1731..50c46e5f524 100644
--- a/gdb/testsuite/gdb.cp/pr12028.exp
+++ b/gdb/testsuite/gdb.cp/pr12028.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 ############################################
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     continue
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr9067.exp b/gdb/testsuite/gdb.cp/pr9067.exp
index 417abb19f07..79d18b5f65d 100644
--- a/gdb/testsuite/gdb.cp/pr9067.exp
+++ b/gdb/testsuite/gdb.cp/pr9067.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/pr9631.exp b/gdb/testsuite/gdb.cp/pr9631.exp
index c98e3e9bf3f..612feaab974 100644
--- a/gdb/testsuite/gdb.cp/pr9631.exp
+++ b/gdb/testsuite/gdb.cp/pr9631.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/printmethod.exp b/gdb/testsuite/gdb.cp/printmethod.exp
index 94aaba3f246..1530a40220e 100644
--- a/gdb/testsuite/gdb.cp/printmethod.exp
+++ b/gdb/testsuite/gdb.cp/printmethod.exp
@@ -32,7 +32,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/ptype-flags.exp b/gdb/testsuite/gdb.cp/ptype-flags.exp
index b04a4a4b8c9..8c42de837e7 100644
--- a/gdb/testsuite/gdb.cp/ptype-flags.exp
+++ b/gdb/testsuite/gdb.cp/ptype-flags.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/ref-types.exp b/gdb/testsuite/gdb.cp/ref-types.exp
index 8135a2845f8..fd99ea9c0d6 100644
--- a/gdb/testsuite/gdb.cp/ref-types.exp
+++ b/gdb/testsuite/gdb.cp/ref-types.exp
@@ -32,12 +32,10 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 # set it up at a breakpoint so we can play with the variable values
 #
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
 if {![runto 'marker1']} {
-    perror "couldn't run to marker1"
     return
 }
 
@@ -58,12 +56,10 @@ proc gdb_start_again {} {
     # set it up at a breakpoint so we can play with the variable values
     #
     if {![runto_main]} {
-	perror "couldn't run to breakpoint"
 	return
     }
 
     if {![runto 'marker1']} {
-	perror "couldn't run to marker1"
 	return
     }
 
@@ -129,7 +125,6 @@ gdb_test "print ras\[3\]" ".\[0-9\]* = 3" "print value of ras\[3\]"
 
 
 if {![runto 'f']} {
-    perror "couldn't run to f"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/rtti.exp b/gdb/testsuite/gdb.cp/rtti.exp
index 77cc6b6c35e..c72777bebff 100644
--- a/gdb/testsuite/gdb.cp/rtti.exp
+++ b/gdb/testsuite/gdb.cp/rtti.exp
@@ -40,7 +40,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/rvalue-ref-types.exp b/gdb/testsuite/gdb.cp/rvalue-ref-types.exp
index 6056af415cf..e38393db40d 100644
--- a/gdb/testsuite/gdb.cp/rvalue-ref-types.exp
+++ b/gdb/testsuite/gdb.cp/rvalue-ref-types.exp
@@ -62,7 +62,6 @@ gdb_test "print rrat\[3\]" ".$decimal = 3" "print value of rrat\[3\]"
 
 
 if {![runto 'f']} {
-    perror "couldn't run to f"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/shadow.exp b/gdb/testsuite/gdb.cp/shadow.exp
index 641feed752c..4ddfe38b8e3 100644
--- a/gdb/testsuite/gdb.cp/shadow.exp
+++ b/gdb/testsuite/gdb.cp/shadow.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/smartp.exp b/gdb/testsuite/gdb.cp/smartp.exp
index c94dfae4394..75faefd6f62 100644
--- a/gdb/testsuite/gdb.cp/smartp.exp
+++ b/gdb/testsuite/gdb.cp/smartp.exp
@@ -22,7 +22,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug c++}
 ############################################
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/static-method.exp b/gdb/testsuite/gdb.cp/static-method.exp
index efe56049239..1499955f308 100644
--- a/gdb/testsuite/gdb.cp/static-method.exp
+++ b/gdb/testsuite/gdb.cp/static-method.exp
@@ -65,7 +65,6 @@ gdb_test_multiple $test $test {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/try_catch.exp b/gdb/testsuite/gdb.cp/try_catch.exp
index 437309ada51..25c20409990 100644
--- a/gdb/testsuite/gdb.cp/try_catch.exp
+++ b/gdb/testsuite/gdb.cp/try_catch.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/userdef.exp b/gdb/testsuite/gdb.cp/userdef.exp
index 5eba7e2cd81..0245a6ee9d7 100644
--- a/gdb/testsuite/gdb.cp/userdef.exp
+++ b/gdb/testsuite/gdb.cp/userdef.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/var-tag.exp b/gdb/testsuite/gdb.cp/var-tag.exp
index e69f7c9df53..3a04dc6f5f4 100644
--- a/gdb/testsuite/gdb.cp/var-tag.exp
+++ b/gdb/testsuite/gdb.cp/var-tag.exp
@@ -82,7 +82,6 @@ with_test_prefix "before start" {
 
 # Run to main and test again.
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/virtbase.exp b/gdb/testsuite/gdb.cp/virtbase.exp
index b026cfb4fba..1b83daf506b 100644
--- a/gdb/testsuite/gdb.cp/virtbase.exp
+++ b/gdb/testsuite/gdb.cp/virtbase.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/virtbase2.exp b/gdb/testsuite/gdb.cp/virtbase2.exp
index d58403b7fa0..d55b02451bb 100644
--- a/gdb/testsuite/gdb.cp/virtbase2.exp
+++ b/gdb/testsuite/gdb.cp/virtbase2.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/virtfunc.exp b/gdb/testsuite/gdb.cp/virtfunc.exp
index 23088f75850..8c2dc51d28a 100644
--- a/gdb/testsuite/gdb.cp/virtfunc.exp
+++ b/gdb/testsuite/gdb.cp/virtfunc.exp
@@ -274,7 +274,6 @@ proc do_tests {} {
     gdb_test_no_output "set width 0" ""
 
     if {![runto_main]} {
-	perror "couldn't run to breakpoint"
 	return
     }
     test_ptype_of_classes
diff --git a/gdb/testsuite/gdb.cp/virtfunc2.exp b/gdb/testsuite/gdb.cp/virtfunc2.exp
index 3ec05301036..b2798b300e6 100644
--- a/gdb/testsuite/gdb.cp/virtfunc2.exp
+++ b/gdb/testsuite/gdb.cp/virtfunc2.exp
@@ -29,7 +29,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.cp/watch-cp.exp b/gdb/testsuite/gdb.cp/watch-cp.exp
index 8ef64bb59b7..62bedde8d54 100644
--- a/gdb/testsuite/gdb.cp/watch-cp.exp
+++ b/gdb/testsuite/gdb.cp/watch-cp.exp
@@ -22,7 +22,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug c++}]} {
 }
 
 if {![runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.dwarf2/count.exp b/gdb/testsuite/gdb.dwarf2/count.exp
index 663114ca0ae..f930062cd7f 100644
--- a/gdb/testsuite/gdb.dwarf2/count.exp
+++ b/gdb/testsuite/gdb.dwarf2/count.exp
@@ -147,7 +147,6 @@ clean_restart ${testfile}
 set GDBFLAGS $saved_gdbflags
 
 if ![runto_main] {
-    perror "couldn't run to main"
     return -1
 }
 
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp
index 12c2f4cce82..5e04cf9160e 100644
--- a/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp
+++ b/gdb/testsuite/gdb.dwarf2/dw2-common-block.exp
@@ -38,7 +38,6 @@ if { [prepare_for_testing "failed to prepare" "${testfile}" $srcfile \
 }
 
 if {![runto MAIN__]} {
-    perror "couldn't run to breakpoint MAIN__"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/array-element.exp b/gdb/testsuite/gdb.fortran/array-element.exp
index f5d313cdf1a..9c8798d1f6d 100644
--- a/gdb/testsuite/gdb.fortran/array-element.exp
+++ b/gdb/testsuite/gdb.fortran/array-element.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 }
 
 if {![runto sub_]} {
-    perror "couldn't run to breakpoint sub_"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/charset.exp b/gdb/testsuite/gdb.fortran/charset.exp
index ae3e34ce1c7..5238faaaa6a 100644
--- a/gdb/testsuite/gdb.fortran/charset.exp
+++ b/gdb/testsuite/gdb.fortran/charset.exp
@@ -31,7 +31,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug addi
 }
 
 if ![fortran_runto_main] {
-    perror "Couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/common-block.exp b/gdb/testsuite/gdb.fortran/common-block.exp
index b8cbfb895c5..8509283a17f 100644
--- a/gdb/testsuite/gdb.fortran/common-block.exp
+++ b/gdb/testsuite/gdb.fortran/common-block.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" ${testfile} \
 }
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/complex.exp b/gdb/testsuite/gdb.fortran/complex.exp
index 896e01cb932..b6fc95534eb 100644
--- a/gdb/testsuite/gdb.fortran/complex.exp
+++ b/gdb/testsuite/gdb.fortran/complex.exp
@@ -23,7 +23,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90 quiet
 }
 
 if {![fortran_runto_main]} {
-    perror "Couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/derived-type-function.exp b/gdb/testsuite/gdb.fortran/derived-type-function.exp
index 3adabd63d36..08d8ad4a60e 100644
--- a/gdb/testsuite/gdb.fortran/derived-type-function.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type-function.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 }
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/derived-type-striding.exp b/gdb/testsuite/gdb.fortran/derived-type-striding.exp
index bf868f57284..3d45a63f839 100644
--- a/gdb/testsuite/gdb.fortran/derived-type-striding.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type-striding.exp
@@ -30,7 +30,6 @@ if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} \
 }
 
 if {![runto [gdb_get_line_number "post_init"]]} {
-    perror "couldn't run to breakpoint post_init"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/derived-type.exp b/gdb/testsuite/gdb.fortran/derived-type.exp
index 63ec0c8d0ba..5187e3ef480 100644
--- a/gdb/testsuite/gdb.fortran/derived-type.exp
+++ b/gdb/testsuite/gdb.fortran/derived-type.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 }
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/function-calls.exp b/gdb/testsuite/gdb.fortran/function-calls.exp
index ea58e6249c9..f240bd71d57 100644
--- a/gdb/testsuite/gdb.fortran/function-calls.exp
+++ b/gdb/testsuite/gdb.fortran/function-calls.exp
@@ -40,7 +40,6 @@ with_complaints 5 {
 }
 
 if {![runto [gdb_get_line_number "post_init"]]} {
-    perror "couldn't run to breakpoint post_init"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/library-module.exp b/gdb/testsuite/gdb.fortran/library-module.exp
index a6ed67d404f..08fb6059bdf 100644
--- a/gdb/testsuite/gdb.fortran/library-module.exp
+++ b/gdb/testsuite/gdb.fortran/library-module.exp
@@ -40,7 +40,6 @@ clean_restart $testfile
 gdb_load_shlib $libfile
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/module.exp b/gdb/testsuite/gdb.fortran/module.exp
index b9c9d6b44f3..47fbf748e3f 100644
--- a/gdb/testsuite/gdb.fortran/module.exp
+++ b/gdb/testsuite/gdb.fortran/module.exp
@@ -35,7 +35,6 @@ gdb_test "print mod1::var_const" " = 20" "fully qualified name of DW_TAG_constan
 gdb_test_no_output "set auto-solib-add off"
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/multi-dim.exp b/gdb/testsuite/gdb.fortran/multi-dim.exp
index fc517b67b9a..cafb12d0e75 100644
--- a/gdb/testsuite/gdb.fortran/multi-dim.exp
+++ b/gdb/testsuite/gdb.fortran/multi-dim.exp
@@ -26,7 +26,6 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {debug f90}
 }
 
 if ![fortran_runto_main] {
-    perror "Couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/namelist.exp b/gdb/testsuite/gdb.fortran/namelist.exp
index 46f24f47970..8e2c9be5c99 100644
--- a/gdb/testsuite/gdb.fortran/namelist.exp
+++ b/gdb/testsuite/gdb.fortran/namelist.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 }
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
index 2a83144b648..9aaf57db9b5 100644
--- a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
+++ b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
@@ -109,7 +109,6 @@ proc do_bp_tests {with_src_prefix_p with_nest_prefix_p} {
 
     # Break on a contained function and run to it.
     if {![runto ${src_prefix}[gdb_get_line_number "pre_init"]]} {
-	perror "couldn't run to breakpoint pre_init"
 	return
     }
 
diff --git a/gdb/testsuite/gdb.fortran/nested-funcs.exp b/gdb/testsuite/gdb.fortran/nested-funcs.exp
index 237e09ed009..b065336c830 100755
--- a/gdb/testsuite/gdb.fortran/nested-funcs.exp
+++ b/gdb/testsuite/gdb.fortran/nested-funcs.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 }
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     continue
 }
 
diff --git a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
index 6751b50a43d..156e4fe4d17 100644
--- a/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
+++ b/gdb/testsuite/gdb.fortran/ptype-on-functions.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 }
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp b/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp
index d458e1adfc4..ccb4d145e8a 100644
--- a/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp
+++ b/gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp
@@ -26,7 +26,6 @@ if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}]} {
 }
 
 if {![runto [gdb_get_line_number "post_truth_table_init"]]} {
-    perror "couldn't run to breakpoint post_truth_table_init"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/string-types.exp b/gdb/testsuite/gdb.fortran/string-types.exp
index 7031c070169..a39d55c51f3 100644
--- a/gdb/testsuite/gdb.fortran/string-types.exp
+++ b/gdb/testsuite/gdb.fortran/string-types.exp
@@ -27,7 +27,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
 }
 
 if { ![fortran_runto_main] } {
-    perror "Couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/subarray.exp b/gdb/testsuite/gdb.fortran/subarray.exp
index 88d47f91e77..776872ed219 100644
--- a/gdb/testsuite/gdb.fortran/subarray.exp
+++ b/gdb/testsuite/gdb.fortran/subarray.exp
@@ -31,7 +31,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
 gdb_test_no_output "set auto-solib-add off"
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp b/gdb/testsuite/gdb.fortran/vla-value.exp
index 36ba0b405e3..a920fb879ee 100644
--- a/gdb/testsuite/gdb.fortran/vla-value.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value.exp
@@ -131,7 +131,6 @@ gdb_test "print vla1(9, 9, 9)" "no such vector element \\\(vector not allocated\
 clean_restart ${testfile}
 
 if {![fortran_runto_main]} {
-    perror "couldn't run to main"
     return
 }
 gdb_breakpoint [gdb_get_line_number "vla2-allocated"]
diff --git a/gdb/testsuite/gdb.modula2/multidim.exp b/gdb/testsuite/gdb.modula2/multidim.exp
index 06a74d462f5..349f7622ff1 100644
--- a/gdb/testsuite/gdb.modula2/multidim.exp
+++ b/gdb/testsuite/gdb.modula2/multidim.exp
@@ -25,7 +25,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile \
 }
 
 if {![runto here]} {
-    perror "couldn't run to breakpoint 'here'"
     return
 }
 
diff --git a/gdb/testsuite/gdb.modula2/unbounded-array.exp b/gdb/testsuite/gdb.modula2/unbounded-array.exp
index e75f1993787..ab43842bd72 100644
--- a/gdb/testsuite/gdb.modula2/unbounded-array.exp
+++ b/gdb/testsuite/gdb.modula2/unbounded-array.exp
@@ -24,7 +24,6 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug quiet}]}
 }
 
 if {![runto foo]} {
-    perror "couldn't run to breakpoint foo"
     return
 }
 
diff --git a/gdb/testsuite/gdb.opt/fortran-string.exp b/gdb/testsuite/gdb.opt/fortran-string.exp
index 5798ad0fcb5..323605e8427 100644
--- a/gdb/testsuite/gdb.opt/fortran-string.exp
+++ b/gdb/testsuite/gdb.opt/fortran-string.exp
@@ -28,7 +28,6 @@ if { [prepare_for_testing "prepare for testing" ${testfile} ${srcfile} \
 }
 
 if {![runto f]} {
-    perror "couldn't run to f"
     return
 }
 
diff --git a/gdb/testsuite/gdb.python/py-format-string.exp b/gdb/testsuite/gdb.python/py-format-string.exp
index 26b18ce1ab0..02065ea6d42 100644
--- a/gdb/testsuite/gdb.python/py-format-string.exp
+++ b/gdb/testsuite/gdb.python/py-format-string.exp
@@ -53,7 +53,6 @@ proc prepare_gdb {exefile} {
   gdb_load ${exefile}
 
   if {![runto_main]} {
-      perror "couldn't run to breakpoint"
       return
   }
 
diff --git a/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp b/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp
index 81c434046a4..b9c8c30a55f 100644
--- a/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp
+++ b/gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp
@@ -52,7 +52,6 @@ gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
     "Test auto-load had loaded python scripts"
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 gdb_test_no_output "set python print-stack full" \
diff --git a/gdb/testsuite/gdb.python/py-framefilter.exp b/gdb/testsuite/gdb.python/py-framefilter.exp
index 794d1c2944c..9a97b6581b4 100644
--- a/gdb/testsuite/gdb.python/py-framefilter.exp
+++ b/gdb/testsuite/gdb.python/py-framefilter.exp
@@ -53,7 +53,6 @@ gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
     "Test auto-load had loaded python scripts"
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 gdb_test_no_output "set python print-stack full" \
@@ -311,7 +310,6 @@ gdb_load ${binfile}
 gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*" \
     "Set autoload path for no debug info tests"
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.python/py-objfile-script.exp b/gdb/testsuite/gdb.python/py-objfile-script.exp
index 8dec58ef98e..4c28f957855 100644
--- a/gdb/testsuite/gdb.python/py-objfile-script.exp
+++ b/gdb/testsuite/gdb.python/py-objfile-script.exp
@@ -43,7 +43,6 @@ gdb_load ${binfile}
 gdb_test "info auto-load python-scripts" "Yes.*${testfile}-gdb.py.*"
 
 if ![runto_main] {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.python/py-prettyprint.exp b/gdb/testsuite/gdb.python/py-prettyprint.exp
index 46a346c194b..a96a96d7929 100644
--- a/gdb/testsuite/gdb.python/py-prettyprint.exp
+++ b/gdb/testsuite/gdb.python/py-prettyprint.exp
@@ -43,7 +43,6 @@ proc run_lang_tests {exefile lang} {
     gdb_load ${exefile}
 
     if {![runto_main]} {
-	perror "couldn't run to breakpoint"
 	return
     }
 
@@ -199,7 +198,6 @@ gdb_reinitialize_dir $srcdir/$subdir
 gdb_load ${binfile}
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }
 
diff --git a/gdb/testsuite/gdb.python/py-section-script.exp b/gdb/testsuite/gdb.python/py-section-script.exp
index e1a60db5256..d9dc0bef1d4 100644
--- a/gdb/testsuite/gdb.python/py-section-script.exp
+++ b/gdb/testsuite/gdb.python/py-section-script.exp
@@ -115,7 +115,6 @@ gdb_test "info auto-load python-scripts no-script-matches-this" \
   "No auto-load scripts matching no-script-matches-this."
 
 if ![runto_main] {
-    perror "couldn't run to main"
     return
 }
 
diff --git a/gdb/testsuite/gdb.python/py-template.exp b/gdb/testsuite/gdb.python/py-template.exp
index 25f3f52f4a3..c2fd510867f 100644
--- a/gdb/testsuite/gdb.python/py-template.exp
+++ b/gdb/testsuite/gdb.python/py-template.exp
@@ -44,7 +44,6 @@ proc test_template_arg {exefile type} {
     }
     gdb_load ${exefile}
     if {![runto_main]} {
-	perror "couldn't run to breakpoint"
 	return
     }
     # There is no executable code in main(), so we are where we want to be
diff --git a/gdb/testsuite/gdb.python/py-type.exp b/gdb/testsuite/gdb.python/py-type.exp
index fbe56f35b4b..594c9749d8e 100644
--- a/gdb/testsuite/gdb.python/py-type.exp
+++ b/gdb/testsuite/gdb.python/py-type.exp
@@ -42,7 +42,6 @@ proc restart_gdb {exefile} {
   gdb_load ${exefile}
 
   if {![runto_main]} {
-      perror "couldn't run to breakpoint"
       return
   }
 }
diff --git a/gdb/testsuite/gdb.python/py-value.exp b/gdb/testsuite/gdb.python/py-value.exp
index c04c98da162..a2e42dceee0 100644
--- a/gdb/testsuite/gdb.python/py-value.exp
+++ b/gdb/testsuite/gdb.python/py-value.exp
@@ -416,7 +416,6 @@ proc test_subscript_regression {exefile lang} {
  clean_restart ${exefile}
 
  if {![runto_main]} {
-     perror "couldn't run to breakpoint"
      return
  }
 
diff --git a/gdb/testsuite/gdb.stabs/exclfwd.exp b/gdb/testsuite/gdb.stabs/exclfwd.exp
index 201c13dd59a..ed2e5467fb5 100644
--- a/gdb/testsuite/gdb.stabs/exclfwd.exp
+++ b/gdb/testsuite/gdb.stabs/exclfwd.exp
@@ -28,7 +28,6 @@ if {[prepare_for_testing "failed to prepare" $testfile \
 }
 
 if {![runto_main]} {
-    perror "couldn't run to breakpoint"
     return
 }