global srcdir subdircatch "glob -nocomplain $srcdir/$subdir/../../tests/*.exp" srcfilesverbose "srcfiles are $srcfiles"set prefix ""foreach x $srcfiles {regsub "\\.exp$" $x "" prefixset 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 $argstest_libstdc++ $options "${prefix}.cc" "-O" $inpfile $resfile $args}