diff options
Diffstat (limited to 'gcc/testsuite/lib/fortran-torture.exp')
-rw-r--r-- | gcc/testsuite/lib/fortran-torture.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/lib/fortran-torture.exp b/gcc/testsuite/lib/fortran-torture.exp index 2f05ba55c46..79bee16c616 100644 --- a/gcc/testsuite/lib/fortran-torture.exp +++ b/gcc/testsuite/lib/fortran-torture.exp @@ -54,7 +54,7 @@ proc fortran-torture-compile { src option } { set output "$tmpdir/[file tail [file rootname $src]].o" - regsub "^$srcdir/?" $src "" testcase + regsub "(?q)$srcdir/" $src "" testcase # If we couldn't rip $srcdir out of `src' then just do the best we can. # The point is to reduce the unnecessary noise in the logs. Don't strip @@ -152,7 +152,7 @@ proc fortran-torture-execute { src } { # Setup the options for the testcase run. set option_list $TORTURE_OPTIONS set executable $tmpdir/[file tail [file rootname $src].x] - regsub "^$srcdir/?" $src "" testcase + regsub "(?q)$srcdir/" $src "" testcase # If we couldn't rip $srcdir out of `src' then just do the best we can. # The point is to reduce the unnecessary noise in the logs. Don't strip |