From: Tom de Vries <tdevries@suse.de>
Date: Thu, 14 May 2020 15:24:49 +0000 (+0200)
Subject: [gdb/testsuite] Fix gdb.fortran/nested-funcs-2.exp with gdbserver
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=02eba61aa6cad683e96cf13f483adc04982c0c2b;p=binutils-gdb.git

[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.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 5f1b04f6c34..6c025832e3b 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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 ...
diff --git a/gdb/testsuite/gdb.fortran/nested-funcs-2.exp b/gdb/testsuite/gdb.fortran/nested-funcs-2.exp
index 724be74ff88..4e517bba2fe 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.