diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2005-04-28 23:58:31 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2005-04-28 23:58:31 +0000 |
| commit | f484fca158ff52e509ac0282947bbb100fd46281 (patch) | |
| tree | b33521d865ba38baae5951b246e72816462b6b8b | |
| parent | f995c51f8042f632f06ca25082871b067ee33ff3 (diff) | |
| download | gcc-f484fca158ff52e509ac0282947bbb100fd46281.zip gcc-f484fca158ff52e509ac0282947bbb100fd46281.tar.gz gcc-f484fca158ff52e509ac0282947bbb100fd46281.tar.bz2 | |
fortran-torture.exp (fortran-torture.exp): Catch error if file cannot be deleted.
2004-04-29 David Billinghurst (David.Billinghurst@riotinto.com)
* lib/fortran-torture.exp (fortran-torture.exp): Catch
error if file cannot be deleted.
From-SVN: r98949
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/fortran-torture.exp | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f02ae0f..638c7fc 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-04-29 David Billinghurst (David.Billinghurst@riotinto.com) + + * lib/fortran-torture.exp (fortran-torture.exp): Catch + error if file cannot be deleted. + 2005-04-28 Kazu Hirata <kazu@cs.umass.edu> * g++.dg/tree-ssa/pr18178.C, gcc.dg/tree-ssa/20030821-1.c, diff --git a/gcc/testsuite/lib/fortran-torture.exp b/gcc/testsuite/lib/fortran-torture.exp index e47c2ef..8f6087c 100644 --- a/gcc/testsuite/lib/fortran-torture.exp +++ b/gcc/testsuite/lib/fortran-torture.exp @@ -180,7 +180,7 @@ proc fortran-torture-execute { src } { # exist. If not, the testcase should XFAIL. # Compile the testcase. - remote_file build delete $executable + catch { remote_file build delete $executable } verbose "Testing $testcase, $option" 1 set options "" |