[gcc r11-7682] testsuite: Fix up target selector syntax errors in modules/builtin-3*.C [PR99601]

Jakub Jelinek jakub@gcc.gnu.org
Mon Mar 15 23:26:25 GMT 2021


https://gcc.gnu.org/g:1973beaf92c629f26df98eff33ab1bce7f3ea4ef

commit r11-7682-g1973beaf92c629f26df98eff33ab1bce7f3ea4ef
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Tue Mar 16 00:24:15 2021 +0100

    testsuite: Fix up target selector syntax errors in modules/builtin-3*.C [PR99601]
    
    Without this patch I'm seeing:
    ERROR: tcl error sourcing /home/jakub/src/gcc/gcc/testsuite/g++.dg/modules/modules.exp.
    ERROR: unmatched open brace in list
        while executing
    "foreach op $tmp {
            switch [lindex $op 0] {
                "dg-options" {
                    set std_prefix "-std=gnu++"
                    if { [string match "*-std=*" [lindex $op 2]] } {
                        ..."
        (procedure "module-init" line 7)
        invoked from within
    "module-init $src"
        invoked from within
    "if [runtest_file_p $runtests $src] {
            set tests [lsort [find [file dirname $src]  [regsub {_a.[CHX]$} [file tail $src] {_[a-z].[CHX]}]]]
    
            set std_lis..."
        ("foreach" body line 3)
        invoked from within
    "foreach src [lsort [find $srcdir/$subdir {*_a.[CHX}]] {
        # use the FOO_a.C name as the parallelization key
        if [runtest_file_p $runtests $src] {..."
        (file "/home/jakub/src/gcc/gcc/testsuite/g++.dg/modules/modules.exp" line 304)
        invoked from within
    "source /home/jakub/src/gcc/gcc/testsuite/g++.dg/modules/modules.exp"
        ("uplevel" body line 1)
        invoked from within
    "uplevel #0 source /home/jakub/src/gcc/gcc/testsuite/g++.dg/modules/modules.exp"
        invoked from within
    "catch "uplevel #0 source $test_file_name""
    
    2021-03-16  Jakub Jelinek  <jakub@redhat.com>
    
            PR c++/99601
            * g++.dg/modules/builtin-3_a.C: Fix target selector syntax errors.
            * g++.dg/modules/builtin-3_b.C: Likewise.

Diff:
---
 gcc/testsuite/g++.dg/modules/builtin-3_a.C | 4 ++--
 gcc/testsuite/g++.dg/modules/builtin-3_b.C | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/testsuite/g++.dg/modules/builtin-3_a.C b/gcc/testsuite/g++.dg/modules/builtin-3_a.C
index 5f61fa4efab..fb7da6175c0 100644
--- a/gcc/testsuite/g++.dg/modules/builtin-3_a.C
+++ b/gcc/testsuite/g++.dg/modules/builtin-3_a.C
@@ -30,8 +30,8 @@ export inline int count (int a, ...)
 // The implementation details of va_list's are target-specific.
 // Usually one of two patterns though
 // { dg-final { scan-lang-dump-not { Cluster members:\n  \[0\]=decl declaration '::__builtin_va_list'\n  \[1\]=binding '::__builtin_va_list'\n} module { target i?86-*-linux* x86_64-*-linux* } } }
-// { dg-final { scan-lang-dump {Wrote GMF:-[0-9]* type_decl:'::__builtin_va_list'@builtins} module { { target x86_64-*-linux* i>86-*-linux* } && lp64 } }
-// { dg-final { scan-lang-dump {Writing:-[0-9]*'s named merge key \(decl\) type_decl:'::__builtin_va_list'} module { target { x86_64-*-linux* i?86-*-linux* } && lp64 } } }
+// { dg-final { scan-lang-dump {Wrote GMF:-[0-9]* type_decl:'::__builtin_va_list'@builtins} module { target { { x86_64-*-linux* i?86-*-linux* } && lp64 } } } }
+// { dg-final { scan-lang-dump {Writing:-[0-9]*'s named merge key \(decl\) type_decl:'::__builtin_va_list'} module { target { { x86_64-*-linux* i?86-*-linux* } && lp64 } } } }
 
 // { dg-final { scan-lang-dump {Writing:-1's named merge key \(decl\) type_decl:'::__gnuc_va_list'} module { target i?86-*-linux* *-*-darwin* } } }
 // { dg-final { scan-lang-dump {Wrote GMF:-3 type_decl:'::__gnuc_va_list'@builtins} module { target i?86-*-linux* *-*-darwin* } } }
diff --git a/gcc/testsuite/g++.dg/modules/builtin-3_b.C b/gcc/testsuite/g++.dg/modules/builtin-3_b.C
index 5c94890c9c4..e0e630656d3 100644
--- a/gcc/testsuite/g++.dg/modules/builtin-3_b.C
+++ b/gcc/testsuite/g++.dg/modules/builtin-3_b.C
@@ -8,6 +8,6 @@ int main ()
 }
 
 // { dg-final { scan-lang-dump {Read:-[0-9]*'s named merge key \(matched\) function_decl:'::__builtin_strlen'} module } }
-// { dg-final { scan-lang-dump {Read:-[0-9]*'s named merge key \(matched\) type_decl:'::__builtin_va_list'} module { target { { x86_64-*-linux* i?86-*-linux* } && lp64 } } }
+// { dg-final { scan-lang-dump {Read:-[0-9]*'s named merge key \(matched\) type_decl:'::__builtin_va_list'} module { target { { x86_64-*-linux* i?86-*-linux* } && lp64 } } } }
 // { dg-final { scan-lang-dump {Read:-[0-9]*'s named merge key \(new\) type_decl:'::va_list'} module } }
 // { dg-final { scan-lang-dump {Read:-[0-9]*'s named merge key \(new\) type_decl:'::__gnuc_va_list'} module } }


More information about the Gcc-cvs mailing list