[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 6cb208f..1cf1559 100644 (file)
--- 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]