From: David Billinghurst <David.Billinghurst@riotinto.com>
Date: Wed, 14 Dec 2005 03:28:17 +0000 (+0000)
Subject: fortran-torture.exp: Catch remaining uses of remote_file build delete.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=025509856a4457d15401a5d69962f451b23281c3;p=gcc.git

fortran-torture.exp: Catch remaining uses of remote_file build delete.

2005-12-14  David Billinghurst  (David.Billinghurst@riotinto.com)

	* lib/fortran-torture.exp:  Catch remaining uses of
	remote_file build delete.

From-SVN: r108503
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 157820cdee3..6d532300e5c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-14  David Billinghurst  (David.Billinghurst@riotinto.com)
+
+	* lib/fortran-torture.exp:  Catch remaining uses of 
+	remote_file build delete. 
+
 2005-12-13  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* g++.old-deja/g++.oliva/stkalign.C: Remove xfail.
diff --git a/gcc/testsuite/lib/fortran-torture.exp b/gcc/testsuite/lib/fortran-torture.exp
index 48f13bfe7ef..2f05ba55c46 100644
--- a/gcc/testsuite/lib/fortran-torture.exp
+++ b/gcc/testsuite/lib/fortran-torture.exp
@@ -77,13 +77,13 @@ proc fortran-torture-compile { src option } {
  
     if [string match "$fatal_signal 6" $comp_output] then {
 	gfortran_fail $testcase "Got Signal 6, $option"
-	remote_file build delete $output
+	catch { remote_file build delete $output }
 	return
     }
 
     if [string match "$fatal_signal 11" $comp_output] then {
 	gfortran_fail $testcase "Got Signal 11, $option"
-	remote_file build delete $output
+	catch { remote_file build delete $output }
 	return
     }
 
@@ -92,7 +92,7 @@ proc fortran-torture-compile { src option } {
 	warning "$testcase: (with warnings) $option"
 	send_log "$comp_output\n"
 	unresolved "$testcase, $option"
-	remote_file build delete $output
+	catch { remote_file build delete $output }
 	return
     }
 
@@ -103,7 +103,7 @@ proc fortran-torture-compile { src option } {
     set unsupported_message [gfortran_check_unsupported_p $comp_output]
     if { $unsupported_message != "" } {
 	unsupported "$testcase: $unsupported_message"
-	remote_file build delete $output
+	catch { remote_file build delete $output }
 	return
     }
 
@@ -113,12 +113,12 @@ proc fortran-torture-compile { src option } {
     # If any message remains, we fail.
     if ![string match "" $comp_output] then {
 	gfortran_fail $testcase $option
-	remote_file build delete $output
+	catch { remote_file build delete $output }
 	return
     }
 
     gfortran_pass $testcase $option
-    remote_file build delete $output
+    catch { remote_file build delete $output }
 }
 
 
@@ -195,13 +195,13 @@ proc fortran-torture-execute { src } {
 	
 	if [string match "$fatal_signal 6" $comp_output] then {
 	    gfortran_fail $testcase "Got Signal 6, $option"
-	    remote_file build delete $executable
+	    catch { remote_file build delete $executable }
 	    continue
 	}
 	
 	if [string match "$fatal_signal 11" $comp_output] then {
 	    gfortran_fail $testcase "Got Signal 11, $option"
-	    remote_file build delete $executable
+	    catch { remote_file build delete $executable }
 	    continue
 	}
 	
@@ -210,7 +210,7 @@ proc fortran-torture-execute { src } {
 	    warning "$testcase: (with warnings) $option"
 	    send_log "$comp_output\n"
 	    unresolved "$testcase, $option"
-	    remote_file build delete $executable
+	    catch { remote_file build delete $executable }
 	    continue
 	}
 	
@@ -265,7 +265,7 @@ proc fortran-torture-execute { src } {
 	set status [lindex $result 0]
 	set output [lindex $result 1]
         if { $status == "pass" } {
-	    remote_file build delete $executable
+	    catch { remote_file build delete $executable }
         }
 	$status "$testcase execution, $option"
     }