From 8a222a6b0ffd3b70b511fb067557b9a57a958315 Mon Sep 17 00:00:00 2001 From: Andrew Burgess Date: Wed, 2 Jun 2021 09:47:23 +0100 Subject: [PATCH] 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. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/lib/fortran.exp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * lib/fortran.exp (fortran_int8): Escape '*' in pattern. + 2021-06-01 Tom Tromey * 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 { -- 2.30.2