path: root/gcc/testsuite/g++.old-deja/old-deja.exp

set dirlen [expr [string length "$srcdir/$subdir"] + 1];
    set tfile [string range $file $dirlen end];
    if ![runtest_file_p $runtests $tfile] then {