global srcdir subdircatch "glob -nocomplain $srcdir/$subdir/../../tests/*.exp" srcfilesverbose "srcfiles are $srcfiles"set prefix ""foreach x $srcfiles {    regsub "\\.exp$" $x "" prefix    set bname [file tail $prefix]    set args ""    if [file exists $srcdir/$subdir/${bname}.arg] {	set id [open "$srcdir/$subdir/${bname}.arg" r];	set args [read -nonewline $id];	close $id;    }    if [file exists $srcdir/$subdir/${bname}.xpo] {	set resfile "$srcdir/$subdir/${bname}.xpo"	set options "regexp_match"    } else {	set resfile "${prefix}.exp"	set options ""    }    if [file exists ${prefix}.inp] {	set inpfile ${prefix}.inp    } else {	set inpfile ""    }    verbose "inpfile is $inpfile"    test_libstdc++ $options "${prefix}.cc" "" $inpfile $resfile $args    test_libstdc++ $options "${prefix}.cc" "-O" $inpfile $resfile $args}