diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3b5930e8d4d..85780196234 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-06  David Billinghurst  <David.Billinghurst@riotinto.com>
+
+	* g77.f-torture/execute/f90-intrinsic-bit.x: XFAIL on irix6.* and
+	solaris2.*
+	* g77.f-torture/compile/pr3743.x: Likewise
+
 2001-08-05  Gabriel Dos Reis  <gdr@merlin.codesourcery.com>
 
 	* g++.dg/other/using-declaration.C: New test.
diff --git a/gcc/testsuite/g77.f-torture/compile/pr3743.x b/gcc/testsuite/g77.f-torture/compile/pr3743.x
new file mode 100644
index 00000000000..d66caf68fc4
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/pr3743.x
@@ -0,0 +1,10 @@
+# This doesn't work on irix6.x or solaris2.[78] 
+# GNATS PR 3743
+
+global target_triplet
+if { [istarget "mips-sgi-irix6*"] || [istarget "sparc-sun-solaris2.*"] } {
+	set torture_compile_xfail "$target_triplet"
+	return 1
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/f90-intrinsic-bit.x b/gcc/testsuite/g77.f-torture/execute/f90-intrinsic-bit.x
new file mode 100644
index 00000000000..8665030ae0e
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/f90-intrinsic-bit.x
@@ -0,0 +1,10 @@
+# This doesn't work on irix6.x or solaris2.[78] 
+# GNATS PR 3743
+
+global target_triplet
+if { [istarget "mips*-sgi-irix6*"] || [istarget "sparc-sun-solaris2.8"] } {
+	set torture_compile_xfail "$target_triplet"
+	return 1
+}
+
+return 0