From 3453c37fe3e47c3cc82fab9204824a7a3aae9bda Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Fri, 17 Jun 2005 06:50:32 +0000 Subject: [PATCH] re PR testsuite/21945 (gfortran testsuite dies on cygwin (again)) 2005-06-07 David Billinghurst PR testsuite/21945 * lib/gcc-dg.exp (gcc-dg-test-1): Catch error if file can't be deleted. From-SVN: r101124 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/lib/gcc-dg.exp | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d6b5619cfb5..eb3768bb3b8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-06-07 David Billinghurst + + PR testsuite/21945 + * lib/gcc-dg.exp (gcc-dg-test-1): Catch error if file can't be deleted. + 2005-06-15 Giovanni Bajo * gcc.dg/vect/vect-dv-2.c, gcc.dg/vect/vect-ifcvt-2.c, diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index ab2f18992af..9a1e61272c5 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -122,7 +122,7 @@ proc gcc-dg-test-1 { target_compile prog do_what extra_tool_flags } { set output_file "./[file rootname [file tail $prog]].exe" # This is the only place where we care if an executable was # created or not. If it was, dg.exp will try to run it. - remote_file build delete $output_file + catch { remote_file build delete $output_file } } default { perror "$do_what: not a valid dg-do keyword" -- 2.30.2