From bf8d2f92356768d329430c08dc81025243db636d Mon Sep 17 00:00:00 2001
From: Tom de Vries <tdevries@suse.de>
Date: Fri, 17 Mar 2023 10:34:18 +0100
Subject: [PATCH] [gdb/testsuite] Declare ada unsupported for remote host

Currently gdb_ada_compile doesn't support remote host.

Make this explicit in allow_ada_tests.

Tested on x86_64-linux.
---
 gdb/testsuite/lib/gdb.exp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 8b3a594e6a4..5f32181f60e 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -2442,6 +2442,10 @@ proc allow_fortran_tests {} {
 # Return a 1 if I want to try to test ada.
 
 proc allow_ada_tests {} {
+    if { [is_remote host] } {
+	# Currently gdb_ada_compile doesn't support remote host.
+	return 0
+    }
     return 1
 }
 
-- 
2.30.2