pr3743.x: Do not return 1 for xfail.

2001-08-16  David Billinghurst  <David.Billinghurst@riotinto.com>

	* g77.f-torture/compile/pr3743.x: Do not return 1 for xfail.
	Fix thinko.
	* g77.f-torture/execute/f90-intrinsic-bit.x: Do not return 1
	for xfail.

From-SVN: r44945

gcc/testsuite/ChangeLog

-2001-08-14  David Billinghurst <David.Billinghurst@riotinto.com>
+2001-08-16  David Billinghurst  <David.Billinghurst@riotinto.com>
+
+	* g77.f-torture/compile/pr3743.x: Do not return 1 for xfail.
+	Fix thinko.
+	* g77.f-torture/execute/f90-intrinsic-bit.x: Do not return 1
+	for xfail.
+
+2001-08-14  David Billinghurst  <David.Billinghurst@riotinto.com>
 
 	* lib/g77-dg.exp:  Use prune.exp for common procedures
 	(g77-dg-prune): Replace prune_g77_output with prune_gcc_output 

gcc/testsuite/g77.f-torture/compile/pr3743.x

@@ -4,7 +4,6 @@
 global target_triplet
 if { [istarget "mips-sgi-irix6*"] || [istarget "sparc-sun-solaris2.*"] } {
 	set torture_compile_xfail "$target_triplet"
-	return 1
 }
 
 return 0

gcc/testsuite/g77.f-torture/execute/f90-intrinsic-bit.x

@@ -2,9 +2,8 @@
 # GNATS PR 3743
 
 global target_triplet
-if { [istarget "mips*-sgi-irix6*"] || [istarget "sparc-sun-solaris2.8"] } {
+if { [istarget "mips*-sgi-irix6*"] || [istarget "sparc-sun-solaris2.*"] } {
 	set torture_compile_xfail "$target_triplet"
-	return 1
 }
 
 return 0