From: Andrew Burgess <andrew.burgess@embecosm.com>
Date: Wed, 2 Jun 2021 08:47:23 +0000 (+0100)
Subject: gdb/testsuite: escape '*' character in pattern used by flang
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8a222a6b0ffd3b70b511fb067557b9a57a958315;p=binutils-gdb.git

gdb/testsuite: escape '*' character in pattern used by flang

One of the integer type patterns used by flang included a '*'
character which was not escaped.

gdb/testsuite/ChangeLog:

	* lib/fortran.exp (fortran_int8): Escape '*' in pattern.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 016bb722037..3b7169638e7 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2021-06-02  Andrew Burgess  <andrew.burgess@embecosm.com>
+
+	* lib/fortran.exp (fortran_int8): Escape '*' in pattern.
+
 2021-06-01  Tom Tromey  <tromey@adacore.com>
 
 	* Makefile.in (all): Don't print anything.
diff --git a/gdb/testsuite/lib/fortran.exp b/gdb/testsuite/lib/fortran.exp
index 35db863e9c8..f8c442fd09c 100644
--- a/gdb/testsuite/lib/fortran.exp
+++ b/gdb/testsuite/lib/fortran.exp
@@ -49,7 +49,7 @@ proc fortran_int8 {} {
     } elseif {[test_compiler_info {gcc-*}]} {
 	return "integer\\(kind=8\\)"
     } elseif {[test_compiler_info {clang-*}]} {
-	return "integer*8"
+	return "integer\\*8"
     } elseif {[test_compiler_info {icc-*}]} {
 	return "INTEGER\\(8\\)"
     } else {