From f484fca158ff52e509ac0282947bbb100fd46281 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Thu, 28 Apr 2005 23:58:31 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/lib/fortran-torture.exp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f02ae0f5427..638c7fc7931 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 * 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 e47c2efa94a..8f6087c66bf 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 "" -- 2.30.2