Fix typo in previous checkin

From-SVN: r99749

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 423253f03d10f23f79f55b4f703e1de72c11ad8c..567e0ead7059d910eb09d093b9c33e9bc682905c 100644 (file)
--- a/gcc/testsuite/lib/compat.exp
+++ b/gcc/testsuite/lib/compat.exp
@@ -288,7 +288,7 @@ proc compat-execute { src1 sid use_alt } {
        set testcase [string range "$src1" [string length "$srcdir/"] end]
     }
     if {[string first "$tmpdir/" "$testcase"] == 0} {
-       set testcase [string range "$src1" [string length "$tmpdir/"] end]
+       set testcase [string range "$testcase" [string length "$tmpdir/"] end]
     }
     regsub "_main.*" $testcase "" testcase
     # Set up the base name of executable files so they'll be unique.