[Bug libffi/65567] New: ERROR: tcl error sourcing /test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/complex.exp

[danglin at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65567

            Bug ID: 65567
           Summary: ERROR: tcl error sourcing
                    /test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/comp
                    lex.exp
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libffi
          Assignee: unassigned at gcc dot gnu.org
          Reporter: danglin at gcc dot gnu.org
              Host: hppa2.0w-hp-hpux11.11 powerpc-apple-darwin9.8.0
            Target: hppa2.0w-hp-hpux11.11 powerpc-apple-darwin9.8.0
             Build: hppa2.0w-hp-hpux11.11 powerpc-apple-darwin9.8.0

In libffi testsuite, we have the following ERRORs:

Running /test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/complex.exp ...
ERROR: tcl error sourcing
/test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/comp
lex.exp.
ERROR: list element in braces followed by ";" instead of space
    while executing
"lindex $lines end"
    (procedure "libffi_feature_test" line 14)
    invoked from within
"libffi_feature_test "#ifdef FFI_TARGET_HAS_COMPLEX_TYPE""
    invoked from within
"if { [libffi_feature_test "#ifdef FFI_TARGET_HAS_COMPLEX_TYPE"] } {
    run-many-tests $tlist ""
} else {
    foreach test $tlist {
        unsupported "$tes..."
    (file "/test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/complex.exp" line
2
4)
    invoked from within
"source /test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/complex.exp"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 source
/test/gnu/gcc/gcc/libffi/testsuite/libffi.complex/complex.exp"
    invoked from within
"catch "uplevel #0 source $test_file_name""
Running /test/gnu/gcc/gcc/libffi/testsuite/libffi.go/go.exp ...
ERROR: tcl error sourcing /test/gnu/gcc/gcc/libffi/testsuite/libffi.go/go.exp.
ERROR: list element in braces followed by ";" instead of space
    while executing
"lindex $lines end"
    (procedure "libffi_feature_test" line 14)
    invoked from within
"libffi_feature_test "#ifdef FFI_GO_CLOSURES""
    invoked from within
"if { [libffi_feature_test "#ifdef FFI_GO_CLOSURES"] } {
    run-many-tests $tlist ""
} else {
    foreach test $tlist {
        unsupported "$test"
    }
}"
    (file "/test/gnu/gcc/gcc/libffi/testsuite/libffi.go/go.exp" line 24)
    invoked from within
"source /test/gnu/gcc/gcc/libffi/testsuite/libffi.go/go.exp"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 source /test/gnu/gcc/gcc/libffi/testsuite/libffi.go/go.exp"
    invoked from within
"catch "uplevel #0 source $test_file_name""