[binutils-gdb] Fix gdb.fortran "failed to extract expected results" errors

[binutils-gdb] Fix gdb.fortran "failed to extract expected results" errors

[Keith Seitz]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=e008305278cb42a576107cd8aa9f0b182eea1af2

commit e008305278cb42a576107cd8aa9f0b182eea1af2
Author: Keith Seitz <keiths@redhat.com>
Date:   Mon Feb 28 07:31:32 2022 -0800

    Fix gdb.fortran "failed to extract expected results" errors
    
    When running the gdb.fortran tests array-slices.exp and lbound-ubound.exp,
    the test suite throws several ERRORs on native-gdbserver/-m{32,64},
    and native-extended-gdbsever/-m{32,64}:
    
    [on native-extended-gdbserver/-m64]
    Running /home/keiths/work/gdb/branches/testsuite-errors/linux/gdb/testsuite/../../../src/gdb/testsuite/gdb.fortran/array-slices.exp ...
    ERROR: failed to extract expected results
    ERROR: failed to extract expected results
    Running /home/keiths/work/gdb/branches/testsuite-errors/linux/gdb/testsuite/../../../src/gdb/testsuite/gdb.fortran/lbound-ubound.exp ...
    ERROR: failed to extract expected results for lbound
    
    This occurs because the tests require inferior I/O which we do not have
    access to while using these targets.
    
    This patch skips these tests when running on non-native targets.

Diff:
---
 gdb/testsuite/gdb.fortran/array-slices.exp  | 6 ++++++
 gdb/testsuite/gdb.fortran/lbound-ubound.exp | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/gdb/testsuite/gdb.fortran/array-slices.exp b/gdb/testsuite/gdb.fortran/array-slices.exp
index 5a909812fe3..8f9c012e399 100644
--- a/gdb/testsuite/gdb.fortran/array-slices.exp
+++ b/gdb/testsuite/gdb.fortran/array-slices.exp
@@ -62,6 +62,12 @@ proc run_test { repack } {
 	return -1
     }
 
+    # This test relies on output from the inferior and is not supported on
+    # remote targets.
+    if {![gdb_is_target_native]} {
+	return 0
+    }
+
     # Avoid libc symbols, in particular the 'array' type.
     gdb_test_no_output "nosharedlibrary"
 
diff --git a/gdb/testsuite/gdb.fortran/lbound-ubound.exp b/gdb/testsuite/gdb.fortran/lbound-ubound.exp
index 51dd3818499..671b251c799 100644
--- a/gdb/testsuite/gdb.fortran/lbound-ubound.exp
+++ b/gdb/testsuite/gdb.fortran/lbound-ubound.exp
@@ -32,6 +32,12 @@ if ![fortran_runto_main] {
     return -1
 }
 
+# This test relies on output from the inferior and is not supported on
+# remote targets.
+if {![gdb_is_target_native]} {
+   return 0
+}
+
 # Avoid libc symbols, in particular the 'array' type.
 gdb_test_no_output "nosharedlibrary"