diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b614d54f581..ca526053f66 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2002-04-08  Hans-Peter Nilsson  <hp@bitrange.com>
+
+	* g77.f-torture/execute/980628-4.x,
+	g77.f-torture/execute/980628-5.x,
+	g77.f-torture/execute/980628-6.x, g77.f-torture/execute/alpha2.x,
+	g77.f-torture/execute/auto0.x, g77.f-torture/execute/auto1.x,
+	g77.f-torture/compile/alpha1.x: New, xfail cross-endian tests.
+
 2002-04-07  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>
 
 	PR optimization/6086
diff --git a/gcc/testsuite/g77.f-torture/compile/alpha1.x b/gcc/testsuite/g77.f-torture/compile/alpha1.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/alpha1.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-4.x b/gcc/testsuite/g77.f-torture/execute/980628-4.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-4.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-5.x b/gcc/testsuite/g77.f-torture/execute/980628-5.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-5.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/980628-6.x b/gcc/testsuite/g77.f-torture/execute/980628-6.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980628-6.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/alpha2.x b/gcc/testsuite/g77.f-torture/execute/alpha2.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/alpha2.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/auto0.x b/gcc/testsuite/g77.f-torture/execute/auto0.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/auto0.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/auto1.x b/gcc/testsuite/g77.f-torture/execute/auto1.x
new file mode 100644
index 00000000000..f411819ccf9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/auto1.x
@@ -0,0 +1,10 @@
+# This test fails compilation in cross-endian environments, for example as
+# below, with a "sorry" message.
+
+if { [istarget "i\[34567\]86-*-*"] } {
+    if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail [istarget]
+    }
+}
+
+return 0