* gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd

        landed.  Should also fix random failures in the test following it.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index dd100f68482d53dc22c2b154760320c04aa8386c..e973914f7f9b0cc4d45e27fa642c7496387cfee9 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-08  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.ada/print_pc.exp: Add verification of where gdb_start_cmd
+       landed.  Should also fix random failures in the test following it.
+
 2008-01-07  Thiago Jung Bauermann  <bauerman@br.ibm.com>
 
        * gdb.base/dfp-exprs.exp (test_dfp_arithmetic_expressions): Add tests

diff --git a/gdb/testsuite/gdb.ada/print_pc.exp b/gdb/testsuite/gdb.ada/print_pc.exp
index 50fbe751379240e1c3b1c76eebbbdc0b267907ca..555ef10840c8c308f04a7d9e76af944df1852995 100644 (file)
--- a/gdb/testsuite/gdb.ada/print_pc.exp
+++ b/gdb/testsuite/gdb.ada/print_pc.exp
@@ -39,6 +39,10 @@ if { [gdb_start_cmd] < 0 } {
     return -1
 }
 
+gdb_test "" \
+         "dummy \\(\\) at .*dummy.adb:.*" \
+         "start inferior"
+
 gdb_test "p /x \$pc" \
          "0x\[0-9a-zA-Z\]+" \
          "p /x \$pc"