From: Thomas Schwinge <thomas@codesourcery.com>
Date: Tue, 30 Jun 2020 05:18:19 +0000 (+0200)
Subject: [testsuite] Fix TCL syntax error in 'scan-dump-dem-not'
X-Git-Tag: basepoints/gcc-12~5953
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3407bfc136bb6b9cf8e25eb753b448b527590b3b;p=thirdparty%2Fgcc.git

[testsuite] Fix TCL syntax error in 'scan-dump-dem-not'

    ERROR: [...]: error executing dg-final: missing close-bracket

Bug introduced in commit 2ef1bce664881cd59dac7db6c3f3b5709d858bfe (r188996),
long ago.

	gcc/testsuite/
	* lib/scandump.exp (scan-dump-dem-not): Fix TCL syntax error.
---

diff --git a/gcc/testsuite/lib/scandump.exp b/gcc/testsuite/lib/scandump.exp
index 6cb208f1cef7..1cf1559cfff4 100644
--- a/gcc/testsuite/lib/scandump.exp
+++ b/gcc/testsuite/lib/scandump.exp
@@ -301,7 +301,7 @@ proc scan-dump-dem-not { args } {
     set testcase [testname-for-summary]
     # The name might include a list of options; extract the file name.
     set filename [lindex $testcase 0]
-    set printable_pattern [make_pattern_printable [lindex $args 1]
+    set printable_pattern [make_pattern_printable [lindex $args 1]]
     set suf [dump-suffix [lindex $args 2]]
     set testname "$testcase scan-[lindex $args 0]-dump-dem-not $suf \"$printable_pattern\""
     set src [file tail $filename]