Committed, fortran test-suite: xfail cross-endian (right now onlyi386-x-mmix).

[Hans-Peter Nilsson <hp at bitrange dot com>]

Tweak to xfail compilation for i386-x-mmix.  Refer to
<URL:http://gcc.gnu.org/ml/gcc-patches/2002-04/msg00381.html>.
Will commit this to 3.1-branch too.

The first thing you may ask is "why not put this condition in
some common function so it can be used elsewhere and we don't
have to tweak all these files"?  Because I really hope we won't
actually need this xfail very long, and for nothing else besides
fortran.  If not, we can later make it a proper re-usable tcl
function later (say, is-cross-endian) in lib/target-supports.exp
or something to be called from f-torture.exp.  Then these file
could be one-liners.  Not really worth it IMHO.

	* 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.

*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/execute/980628-4.x	Tue Apr  9 01:01:05 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0
*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/execute/980628-5.x	Tue Apr  9 01:01:17 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0
*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/execute/980628-6.x	Tue Apr  9 01:01:23 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0
*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/execute/alpha2.x	Tue Apr  9 01:01:30 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0
*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/execute/auto0.x	Tue Apr  9 01:01:35 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0
*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/execute/auto1.x	Tue Apr  9 01:01:41 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0
*** /dev/null	Tue Jan  1 05:00:00 1980
--- g77.f-torture/compile/alpha1.x	Tue Apr  9 01:02:10 2002
***************
*** 0 ****
--- 1,10 ----
+ # This test fails compilation in cross-endian environments, for example as
+ # below, with a "sorry" message.
+
+ if { [ishost "i\[34567\]86-*-*"] } {
+     if { [istarget "mmix-knuth-mmixware"] } {
+ 	set torture_compile_xfail [istarget]
+     }
+ }
+
+ return 0

brgds, H-P