Start inferior before running test listing Ada exceptions.

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.ada / mi_exc_info.exp

diff --git a/gdb/testsuite/gdb.ada/mi_exc_info.exp b/gdb/testsuite/gdb.ada/mi_exc_info.exp
index b77ccbcf9b6cd99327d325b43ca1305a048a51bb..8325e9051fcd8fa7bdc26c4a13d94312cf415429 100644 (file)
--- a/gdb/testsuite/gdb.ada/mi_exc_info.exp
+++ b/gdb/testsuite/gdb.ada/mi_exc_info.exp
@@ -29,6 +29,11 @@ if [mi_gdb_start] {
     continue
 }
 
+if ![mi_run_to_main] then {
+   fail "Cannot run to main, testcase aborted"
+   return 0
+}
+
 mi_delete_breakpoints
 mi_gdb_reinitialize_dir $srcdir/$subdir
 mi_gdb_load ${binfile}