From 30add7ee24bf88630ee38cd73b6a1dd3aa384999 Mon Sep 17 00:00:00 2001
From: Simon Marchi <simon.marchi@efficios.com>
Date: Mon, 5 Dec 2022 16:38:24 -0500
Subject: 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
---
 gdb/testsuite/gdb.ada/access_tagged_param.exp             | 1 -
 gdb/testsuite/gdb.ada/addr_arith.exp                      | 1 -
 gdb/testsuite/gdb.ada/arr_acc_idx_w_gap.exp               | 1 -
 gdb/testsuite/gdb.ada/arr_arr.exp                         | 1 -
 gdb/testsuite/gdb.ada/arr_enum_idx_w_gap.exp              | 1 -
 gdb/testsuite/gdb.ada/array_bounds.exp                    | 1 -
 gdb/testsuite/gdb.ada/arrayptr.exp                        | 1 -
 gdb/testsuite/gdb.ada/bp_c_mixed_case.exp                 | 1 -
 gdb/testsuite/gdb.ada/call_pn.exp                         | 1 -
 gdb/testsuite/gdb.ada/convvar_comp.exp                    | 1 -
 gdb/testsuite/gdb.ada/disc_arr_bound.exp                  | 1 -
 gdb/testsuite/gdb.ada/discrete-char.exp                   | 1 -
 gdb/testsuite/gdb.ada/dot_all.exp                         | 1 -
 gdb/testsuite/gdb.ada/formatted_ref.exp                   | 1 -
 gdb/testsuite/gdb.ada/frame_args.exp                      | 1 -
 gdb/testsuite/gdb.ada/fun_in_declare.exp                  | 1 -
 gdb/testsuite/gdb.ada/ghost.exp                           | 1 -
 gdb/testsuite/gdb.ada/info_addr_mixed_case.exp            | 1 -
 gdb/testsuite/gdb.ada/local-enum.exp                      | 1 -
 gdb/testsuite/gdb.ada/minsyms.exp                         | 1 -
 gdb/testsuite/gdb.ada/mod_from_name.exp                   | 1 -
 gdb/testsuite/gdb.ada/optim_drec.exp                      | 1 -
 gdb/testsuite/gdb.ada/rec_comp.exp                        | 1 -
 gdb/testsuite/gdb.ada/rec_return.exp                      | 1 -
 gdb/testsuite/gdb.ada/ref_param.exp                       | 1 -
 gdb/testsuite/gdb.ada/scalar_storage.exp                  | 1 -
 gdb/testsuite/gdb.ada/set_wstr.exp                        | 1 -
 gdb/testsuite/gdb.ada/small_reg_param.exp                 | 1 -
 gdb/testsuite/gdb.ada/str_uninit.exp                      | 1 -
 gdb/testsuite/gdb.ada/taft_type.exp                       | 1 -
 gdb/testsuite/gdb.ada/varsize_limit.exp                   | 1 -
 gdb/testsuite/gdb.ada/whatis_array_val.exp                | 1 -
 gdb/testsuite/gdb.ada/widewide.exp                        | 1 -
 gdb/testsuite/gdb.base/all-bin.exp                        | 1 -
 gdb/testsuite/gdb.base/arithmet.exp                       | 1 -
 gdb/testsuite/gdb.base/arrayidx.exp                       | 1 -
 gdb/testsuite/gdb.base/assign.exp                         | 1 -
 gdb/testsuite/gdb.base/async.exp                          | 1 -
 gdb/testsuite/gdb.base/bfp-test.exp                       | 1 -
 gdb/testsuite/gdb.base/call-ar-st.exp                     | 1 -
 gdb/testsuite/gdb.base/call-rt-st.exp                     | 1 -
 gdb/testsuite/gdb.base/call-strs.exp                      | 1 -
 gdb/testsuite/gdb.base/completion.exp                     | 2 +-
 gdb/testsuite/gdb.base/cond-expr.exp                      | 1 -
 gdb/testsuite/gdb.base/consecutive.exp                    | 1 -
 gdb/testsuite/gdb.base/constvars.exp                      | 1 -
 gdb/testsuite/gdb.base/ctf-constvars.exp                  | 1 -
 gdb/testsuite/gdb.base/dfp-test.exp                       | 1 -
 gdb/testsuite/gdb.base/enum_cond.exp                      | 1 -
 gdb/testsuite/gdb.base/eval-skip.exp                      | 1 -
 gdb/testsuite/gdb.base/exe-lock.exp                       | 1 -
 gdb/testsuite/gdb.base/exprs.exp                          | 1 -
 gdb/testsuite/gdb.base/fileio.exp                         | 1 -
 gdb/testsuite/gdb.base/float.exp                          | 1 -
 gdb/testsuite/gdb.base/float128.exp                       | 1 -
 gdb/testsuite/gdb.base/floatn.exp                         | 1 -
 gdb/testsuite/gdb.base/frame-args.exp                     | 1 -
 gdb/testsuite/gdb.base/gdb1821.exp                        | 1 -
 gdb/testsuite/gdb.base/interrupt.exp                      | 1 -
 gdb/testsuite/gdb.base/jump.exp                           | 1 -
 gdb/testsuite/gdb.base/logical.exp                        | 1 -
 gdb/testsuite/gdb.base/maint.exp                          | 2 +-
 gdb/testsuite/gdb.base/miscexprs.exp                      | 1 -
 gdb/testsuite/gdb.base/nested-subp1.exp                   | 1 -
 gdb/testsuite/gdb.base/nested-subp2.exp                   | 1 -
 gdb/testsuite/gdb.base/nested-subp3.exp                   | 1 -
 gdb/testsuite/gdb.base/opaque.exp                         | 2 +-
 gdb/testsuite/gdb.base/pc-fp.exp                          | 1 -
 gdb/testsuite/gdb.base/permissions.exp                    | 1 -
 gdb/testsuite/gdb.base/pointers.exp                       | 1 -
 gdb/testsuite/gdb.base/prologue.exp                       | 1 -
 gdb/testsuite/gdb.base/readnever.exp                      | 1 -
 gdb/testsuite/gdb.base/relational.exp                     | 1 -
 gdb/testsuite/gdb.base/setvar.exp                         | 1 -
 gdb/testsuite/gdb.base/shlib-call.exp                     | 2 +-
 gdb/testsuite/gdb.base/sizeof.exp                         | 1 -
 gdb/testsuite/gdb.base/store.exp                          | 1 -
 gdb/testsuite/gdb.base/varargs.exp                        | 1 -
 gdb/testsuite/gdb.base/volatile.exp                       | 1 -
 gdb/testsuite/gdb.base/whatis-exp.exp                     | 1 -
 gdb/testsuite/gdb.cp/ambiguous.exp                        | 1 -
 gdb/testsuite/gdb.cp/anon-ns.exp                          | 1 -
 gdb/testsuite/gdb.cp/anon-union.exp                       | 1 -
 gdb/testsuite/gdb.cp/breakpoint.exp                       | 1 -
 gdb/testsuite/gdb.cp/bs15503.exp                          | 1 -
 gdb/testsuite/gdb.cp/casts.exp                            | 2 --
 gdb/testsuite/gdb.cp/class2.exp                           | 1 -
 gdb/testsuite/gdb.cp/classes.exp                          | 1 -
 gdb/testsuite/gdb.cp/constexpr-field.exp                  | 1 -
 gdb/testsuite/gdb.cp/converts.exp                         | 1 -
 gdb/testsuite/gdb.cp/ctti.exp                             | 1 -
 gdb/testsuite/gdb.cp/derivation.exp                       | 2 --
 gdb/testsuite/gdb.cp/disasm-func-name.exp                 | 1 -
 gdb/testsuite/gdb.cp/dispcxx.exp                          | 1 -
 gdb/testsuite/gdb.cp/filename.exp                         | 1 -
 gdb/testsuite/gdb.cp/fpointer.exp                         | 1 -
 gdb/testsuite/gdb.cp/gdb1355.exp                          | 1 -
 gdb/testsuite/gdb.cp/gdb2384.exp                          | 1 -
 gdb/testsuite/gdb.cp/gdb2495.exp                          | 2 --
 gdb/testsuite/gdb.cp/impl-this.exp                        | 1 -
 gdb/testsuite/gdb.cp/inherit.exp                          | 3 ---
 gdb/testsuite/gdb.cp/iostream.exp                         | 1 -
 gdb/testsuite/gdb.cp/koenig.exp                           | 1 -
 gdb/testsuite/gdb.cp/local.exp                            | 2 --
 gdb/testsuite/gdb.cp/m-data.exp                           | 1 -
 gdb/testsuite/gdb.cp/m-static.exp                         | 1 -
 gdb/testsuite/gdb.cp/many-args.exp                        | 1 -
 gdb/testsuite/gdb.cp/mb-ctor.exp                          | 1 -
 gdb/testsuite/gdb.cp/member-name.exp                      | 1 -
 gdb/testsuite/gdb.cp/member-ptr.exp                       | 1 -
 gdb/testsuite/gdb.cp/meth-typedefs.exp                    | 1 -
 gdb/testsuite/gdb.cp/method.exp                           | 1 -
 gdb/testsuite/gdb.cp/method2.exp                          | 1 -
 gdb/testsuite/gdb.cp/namespace-nested-import.exp          | 1 -
 gdb/testsuite/gdb.cp/namespace.exp                        | 3 ---
 gdb/testsuite/gdb.cp/nextoverthrow.exp                    | 1 -
 gdb/testsuite/gdb.cp/nsdecl.exp                           | 1 -
 gdb/testsuite/gdb.cp/nsimport.exp                         | 1 -
 gdb/testsuite/gdb.cp/nsnested.exp                         | 1 -
 gdb/testsuite/gdb.cp/nsnoimports.exp                      | 1 -
 gdb/testsuite/gdb.cp/nsrecurs.exp                         | 1 -
 gdb/testsuite/gdb.cp/nsstress.exp                         | 1 -
 gdb/testsuite/gdb.cp/nsusing.exp                          | 1 -
 gdb/testsuite/gdb.cp/operator.exp                         | 1 -
 gdb/testsuite/gdb.cp/oranking.exp                         | 1 -
 gdb/testsuite/gdb.cp/overload.exp                         | 2 --
 gdb/testsuite/gdb.cp/ovldbreak.exp                        | 1 -
 gdb/testsuite/gdb.cp/ovsrch.exp                           | 1 -
 gdb/testsuite/gdb.cp/pr-1023.exp                          | 1 -
 gdb/testsuite/gdb.cp/pr-1210.exp                          | 1 -
 gdb/testsuite/gdb.cp/pr-574.exp                           | 1 -
 gdb/testsuite/gdb.cp/pr10728.exp                          | 1 -
 gdb/testsuite/gdb.cp/pr12028.exp                          | 1 -
 gdb/testsuite/gdb.cp/pr9067.exp                           | 1 -
 gdb/testsuite/gdb.cp/pr9631.exp                           | 1 -
 gdb/testsuite/gdb.cp/printmethod.exp                      | 1 -
 gdb/testsuite/gdb.cp/ptype-flags.exp                      | 1 -
 gdb/testsuite/gdb.cp/ref-types.exp                        | 5 -----
 gdb/testsuite/gdb.cp/rtti.exp                             | 1 -
 gdb/testsuite/gdb.cp/rvalue-ref-types.exp                 | 1 -
 gdb/testsuite/gdb.cp/shadow.exp                           | 1 -
 gdb/testsuite/gdb.cp/smartp.exp                           | 1 -
 gdb/testsuite/gdb.cp/static-method.exp                    | 1 -
 gdb/testsuite/gdb.cp/try_catch.exp                        | 1 -
 gdb/testsuite/gdb.cp/userdef.exp                          | 1 -
 gdb/testsuite/gdb.cp/var-tag.exp                          | 1 -
 gdb/testsuite/gdb.cp/virtbase.exp                         | 1 -
 gdb/testsuite/gdb.cp/virtbase2.exp                        | 1 -
 gdb/testsuite/gdb.cp/virtfunc.exp                         | 1 -
 gdb/testsuite/gdb.cp/virtfunc2.exp                        | 1 -
 gdb/testsuite/gdb.cp/watch-cp.exp                         | 1 -
 gdb/testsuite/gdb.dwarf2/count.exp                        | 1 -
 gdb/testsuite/gdb.dwarf2/dw2-common-block.exp             | 1 -
 gdb/testsuite/gdb.fortran/array-element.exp               | 1 -
 gdb/testsuite/gdb.fortran/charset.exp                     | 1 -
 gdb/testsuite/gdb.fortran/common-block.exp                | 1 -
 gdb/testsuite/gdb.fortran/complex.exp                     | 1 -
 gdb/testsuite/gdb.fortran/derived-type-function.exp       | 1 -
 gdb/testsuite/gdb.fortran/derived-type-striding.exp       | 1 -
 gdb/testsuite/gdb.fortran/derived-type.exp                | 1 -
 gdb/testsuite/gdb.fortran/function-calls.exp              | 1 -
 gdb/testsuite/gdb.fortran/library-module.exp              | 1 -
 gdb/testsuite/gdb.fortran/module.exp                      | 1 -
 gdb/testsuite/gdb.fortran/multi-dim.exp                   | 1 -
 gdb/testsuite/gdb.fortran/namelist.exp                    | 1 -
 gdb/testsuite/gdb.fortran/nested-funcs-2.exp              | 1 -
 gdb/testsuite/gdb.fortran/nested-funcs.exp                | 1 -
 gdb/testsuite/gdb.fortran/ptype-on-functions.exp          | 1 -
 gdb/testsuite/gdb.fortran/short-circuit-argument-list.exp | 1 -
 gdb/testsuite/gdb.fortran/string-types.exp                | 1 -
 gdb/testsuite/gdb.fortran/subarray.exp                    | 1 -
 gdb/testsuite/gdb.fortran/vla-value.exp                   | 1 -
 gdb/testsuite/gdb.modula2/multidim.exp                    | 1 -
 gdb/testsuite/gdb.modula2/unbounded-array.exp             | 1 -
 gdb/testsuite/gdb.opt/fortran-string.exp                  | 1 -
 gdb/testsuite/gdb.python/py-format-string.exp             | 1 -
 gdb/testsuite/gdb.python/py-framefilter-invalidarg.exp    | 1 -
 gdb/testsuite/gdb.python/py-framefilter.exp               | 2 --
 gdb/testsuite/gdb.python/py-objfile-script.exp            | 1 -
 gdb/testsuite/gdb.python/py-prettyprint.exp               | 2 --
 gdb/testsuite/gdb.python/py-section-script.exp            | 1 -
 gdb/testsuite/gdb.python/py-template.exp                  | 1 -
 gdb/testsuite/gdb.python/py-type.exp                      | 1 -
 gdb/testsuite/gdb.python/py-value.exp                     | 1 -
 gdb/testsuite/gdb.stabs/exclfwd.exp                       | 1 -
 185 files changed, 4 insertions(+), 200 deletions(-)

(limited to 'gdb')

diff --git a/gdb/testsuite/gdb.ada/access_tagged_param.exp b/gdb/testsuite/gdb.ada/access_tagged_param.exp
index 2103e4b..4676cbd 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 4e3059f..82d2e67 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 ac720ff..39e12c6 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 488eb00..8358aae 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 3a6785f..ed1915f 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 b68e448..0a897d0 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 d8429c4..eefd21a 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 d6eb9f5..98f75f7 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 c4f8124..758b64a 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 6908bc2..366ac60 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 8cbfe5d..e5155f3 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 1d380e4..1896252 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 6064a7d..0b0eba5 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 19a3265..1d780cc 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 9961780..f3fa41f 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 4b30a77..a097244 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 93ab507..412a260 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 d512ef4..4b3277b 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 908ee73..409ea35 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 7ce2d81..4e97439 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 8eb6156..7ee7d8c 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 823156c..51ad14d 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 342fe3a..0c155bc 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 723244f..d06fae4 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 871e755..6f72c91 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 106413e..bfb2fac 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 97a683d..6c19af3 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 cb3c3bf..cac9a5a 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 9686290..30c7bfc 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 a791cd1..e9210cd 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 af5a394..45ab865 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 eadd6ed..27febfc 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 34f5967..9db4048 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 2bb9cfe..b5979a4 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 4fa2ab2..c1fe169 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 677e4f0..ad8eed3 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 526e063..8a80b45 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 7630581..2fdeeb0 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 1741521..b84019e 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 a5599d7..754ed7c 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 63792ee..40786d8 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 f933581..346d516 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 2a46d4f..f8fbf60 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 36754f9..34ccac2 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 b517b42..fdad00b 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 8d1af0b..40ce0a4 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 4a8307e..cd0198d 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 0d7314f..3f91358 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 bb5d6c2..cfe5af6 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 fe6f7f0..baea1de 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 1276ec0..c15d8b4 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 7b081ec..5bf03bf 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 18e429c..95f4b4e 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 b9c5057..5f17aea 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 a4d94d4..21a1a99 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 58be8eb..ec1bfd4 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 adc2a9e..1ddb9a0 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 40dcb0c..ea96136 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 143116c..fca1772 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 527a1ae..2137585 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 25eb071..a0fe2b0 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 981c2f6..0025139 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 1cf1217..a344a9b 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 dc96e97..61f35e0 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 ac41b55..642d3f3 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 d0c8583..ae676e4 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 4d3f11b..cdf6ba0 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 191c842..b75119b 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 af6c7f4..28af5c6 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 5fb7cf6..b6014b4 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 9d5d40a..682ba7d 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 f475633..60e4d4f 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 98f4379..7359f78 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 673df0a..f05bd80 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 5db6b12..b148e91 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 7cdbace..f8bf6a5 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 6fc22f2..188e507 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 a7807ea..d6dc56a 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 7fda226..2338473 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 132eee7..df13dd1 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 0f04668..5d0d2f8 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 852d9bc..bab7717 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 9f18545..fd51d79 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 e1f2d4c..31952b6 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 f00421a..b50333f 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 43851d4..f98f844 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 9392e25..69e9809 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 beac268..c6d9c05 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 b1ecf13..f534961 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 ea7a2f4..9e4b6ea 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 4a2012e..aacda45 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 f5d20a0..67ec4c1 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 45f18ab..bfc1739 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 9d2e340..e12b082 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 6d97ee5..91ee330 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 5fc9905..b7befe9 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 e18bcc1..cd4ee9b 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 7fc5a5b..e08ed9c 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 6ade5d9..b2305a1 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 4a11fb2..9ce409e 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 c3cfefc..e1099fe 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 5189a0d..aa7c535 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 912a7ea..60aa130 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 351f39f..378a5c3 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 aca98c7..282b33a 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 228c120..1acaf13 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 aba1e78..c9c02f4 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 3bf5ee3..f60d071 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 7e413ca..6e3e0f0 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 8e20c01..abb2091 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 c11e991..b357e36 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 07a17b0..7a3227b 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 ad0129c..c657b38 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 a08a4e0..43c6fcf 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 2f3a766..f2eb2a4 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 58e54f8..fe6445c 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 d1859f8..1b12917 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 56a74e7..61a8d6d 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 01aba76..d9e5b6f 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 11bcdae..e5d3186 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 30eab17..b1592ff 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 2ff8879..3fbca5d 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 f767b6b..18bb282 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 b5609ba..54c8cbb 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 b9aa27d..07c3f79 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 4dcd0ef..fde9d73 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 0ed9eae..94b58a5 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 767d12b..32ac7ce 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 390459a..0cd310b 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 c74e7aa..5fabf6f 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 32c7f63..06b96cc 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 8051eae..07db26a 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 c9583bd..50c46e5 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 417abb1..79d18b5 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 c98e3e9..612feaa 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 94aaba3..1530a40 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 b04a4a4..8c42de8 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 8135a28..fd99ea9 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 77cc6b6..c72777b 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 6056af4..e38393d 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 641feed..4ddfe38 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 c94dfae..75faefd 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 efe5604..1499955 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 437309a..25c2040 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 5eba7e2..0245a6e 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 e69f7c9..3a04dc6 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 b026cfb..1b83daf 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 d58403b..d55b024 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 23088f7..8c2dc51 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 3ec0530..b2798b3 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 8ef64bb..62bedde 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 663114c..f930062 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 12c2f4c..5e04cf9 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 f5d313c..9c8798d 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 ae3e34c..5238faa 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 b8cbfb8..8509283 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 896e01c..b6fc955 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 3adabd6..08d8ad4 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 bf868f5..3d45a63 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 63ec0c8..5187e3e 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 ea58e62..f240bd7 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 a6ed67d..08fb605 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 b9c9d6b..47fbf74 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 fc517b6..cafb12d 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 46f24f4..8e2c9be 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 2a83144..9aaf57d 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 237e09e..b065336 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 6751b50..156e4fe 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 d458e1a..ccb4d14 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 7031c07..a39d55c 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 88d47f9..776872e 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 36ba0b4..a920fb8 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 06a74d4..349f762 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 e75f199..ab43842 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 5798ad0..323605e 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 26b18ce..02065ea 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 81c4340..b9c8c30 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 794d1c2..9a97b65 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 8dec58e..4c28f95 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 46a346c..a96a96d 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 e1a60db..d9dc0be 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 25f3f52..c2fd510 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 fbe56f3..594c974 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 c04c98d..a2e42dc 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 201c13d..ed2e546 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
 }
 
-- 
cgit v1.1