[binutils-gdb] [gdb/testsuite, tclint] Fix lib/fortran.exp

[Tom de Vries]

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

commit 5c6a06425050806fca6fdf8a845c3afd43fbc825
Author: Tom de Vries <tdevries@suse.de>
Date:   Sun Oct 5 22:50:09 2025 +0200

    [gdb/testsuite, tclint] Fix lib/fortran.exp

Diff:
---
 gdb/tclint.toml               | 1 -
 gdb/testsuite/lib/fortran.exp | 7 ++++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/gdb/tclint.toml b/gdb/tclint.toml
index 4853968dfb7..bda9cee6a72 100644
--- a/gdb/tclint.toml
+++ b/gdb/tclint.toml
@@ -38,7 +38,6 @@ exclude = [
 "gdb/testsuite/lib/check-test-names.exp",
 "gdb/testsuite/lib/cp-support.exp",
 "gdb/testsuite/lib/dwarf.exp",
-"gdb/testsuite/lib/fortran.exp",
 "gdb/testsuite/lib/future.exp",
 "gdb/testsuite/lib/gdb.exp",
 "gdb/testsuite/lib/gdbreplay-support.exp",
diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/fortran.exp
index 6f2bbd8c5a0..7572388fbe8 100644
--- a/gdb/testsuite/lib/fortran.exp
+++ b/gdb/testsuite/lib/fortran.exp
@@ -19,11 +19,12 @@
 # The result is 1 (true) for success, 0 (false) for failure.
 
 proc set_lang_fortran {} {
-    if [gdb_test_no_output "set language fortran"] {
+    if {[gdb_test_no_output "set language fortran"]} {
 	return 0
     }
-    if [gdb_test "show language" ".* source language is \"fortran\"." \
-	   "set language to \"fortran\""] {
+    if {[gdb_test "show language" \
+	     [string_to_regexp {The current source language is "fortran".}] \
+	     {set language to "fortran"}]} {
 	return 0
     }
     return 1