aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom de Vries <tdevries@suse.de>2020-05-14 17:24:49 +0200
committerTom de Vries <tdevries@suse.de>2020-05-14 17:24:49 +0200
commit02eba61aa6cad683e96cf13f483adc04982c0c2b (patch)
treee43988ca190cfa16c2af7c2f6d3b76354e511088
parent971a374783061ad1d1574508235e364dfd0fc6e2 (diff)
downloadgdb-02eba61aa6cad683e96cf13f483adc04982c0c2b.zip
gdb-02eba61aa6cad683e96cf13f483adc04982c0c2b.tar.gz
gdb-02eba61aa6cad683e96cf13f483adc04982c0c2b.tar.bz2
[gdb/testsuite] Fix gdb.fortran/nested-funcs-2.exp with gdbserver
When running test-case gdb.fortran/nested-funcs-2.exp with target board native-gdbserver, we have: ... (gdb) call contains_keyword::subroutine_to_call()^M (gdb) FAIL: gdb.fortran/nested-funcs-2.exp: src_prefix=0: nest_prefix=1: \ call contains_keyword::subroutine_to_call() ... This is caused by the fact that we're trying to match inferior output using gdb_test. Fix this by using gdb_test_stdio instead. Tested on x86_64-linux. gdb/testsuite/ChangeLog: 2020-05-14 Tom de Vries <tdevries@suse.de> * gdb.fortran/nested-funcs-2.exp: Use gdb_test_stdio to test inferior output.
-rw-r--r--gdb/testsuite/ChangeLog5
-rw-r--r--gdb/testsuite/gdb.fortran/nested-funcs-2.exp2
2 files changed, 6 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 5f1b04f..6c02583 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,10 @@
2020-05-14 Tom de Vries <tdevries@suse.de>
+ * gdb.fortran/nested-funcs-2.exp: Use gdb_test_stdio to test inferior
+ output.
+
+2020-05-14 Tom de Vries <tdevries@suse.de>
+
* gdb.base/align.exp: Split into ...
* gdb.base/align.exp.in: ...
* gdb.base/align-c++.exp: ...
diff --git a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
index 724be74..4e517bb 100644
--- a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
+++ b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
@@ -89,7 +89,7 @@ proc do_bp_tests {with_src_prefix_p with_nest_prefix_p} {
# Call a contained function.
if { ${with_nest_prefix_p} } {
- gdb_test "call ${nest_prefix}subroutine_to_call()" " called"
+ gdb_test_stdio "call ${nest_prefix}subroutine_to_call()" " called" ""
}
# Break on another contained function and run to it.