From e78c4529cb765a3e6772d668453688bd58686b5a Mon Sep 17 00:00:00 2001
From: Hans-Peter Nilsson <hp@bitrange.com>
Date: Wed, 3 Apr 2002 01:45:43 +0000
Subject: [PATCH] f77-edit-i-in.f: xfail for mmix-knuth-mmixware.

	* g77.dg/f77-edit-i-in.f: xfail for mmix-knuth-mmixware.
	* g77.f-torture/execute/io0.x, g77.f-torture/execute/io1.x,
	g77.f-torture/execute/20001201.x,
	g77.f-torture/execute/u77-test.x: New files.

From-SVN: r51771
---
 gcc/testsuite/ChangeLog                        | 5 +++++
 gcc/testsuite/g77.dg/f77-edit-i-in.f           | 3 ++-
 gcc/testsuite/g77.f-torture/execute/20001201.x | 8 ++++++++
 gcc/testsuite/g77.f-torture/execute/io0.x      | 8 ++++++++
 gcc/testsuite/g77.f-torture/execute/io1.x      | 8 ++++++++
 gcc/testsuite/g77.f-torture/execute/u77-test.x | 8 ++++++++
 6 files changed, 39 insertions(+), 1 deletion(-)
 create mode 100644 gcc/testsuite/g77.f-torture/execute/20001201.x
 create mode 100644 gcc/testsuite/g77.f-torture/execute/io0.x
 create mode 100644 gcc/testsuite/g77.f-torture/execute/io1.x
 create mode 100644 gcc/testsuite/g77.f-torture/execute/u77-test.x

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 754b986a644..30b26663443 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2002-04-03  Hans-Peter Nilsson  <hp@bitrange.com>
 
+	* g77.dg/f77-edit-i-in.f: xfail for mmix-knuth-mmixware.
+	* g77.f-torture/execute/io0.x, g77.f-torture/execute/io1.x,
+	g77.f-torture/execute/20001201.x,
+	g77.f-torture/execute/u77-test.x: New files.
+
 	* gcc.dg/wint_t-1.c: Mark excess errors for mmix-knuth-mmixware.
 	* gcc.dg/wchar_t-1.c: Ditto.
 
diff --git a/gcc/testsuite/g77.dg/f77-edit-i-in.f b/gcc/testsuite/g77.dg/f77-edit-i-in.f
index 729a1f0a743..e4c68344301 100644
--- a/gcc/testsuite/g77.dg/f77-edit-i-in.f
+++ b/gcc/testsuite/g77.dg/f77-edit-i-in.f
@@ -3,7 +3,8 @@ C      (ANSI X3.9-1978 Section 13.5.9.1)
 C
 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
 C
-C { dg-do run }
+C Scratch files aren't implemented for mmixware: stubs will fail at run time.
+C { dg-do run { xfail mmix-knuth-mmixware } }
       integer i,j
 
       open(unit=10,status='SCRATCH')
diff --git a/gcc/testsuite/g77.f-torture/execute/20001201.x b/gcc/testsuite/g77.f-torture/execute/20001201.x
new file mode 100644
index 00000000000..027dcb5ccae
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/20001201.x
@@ -0,0 +1,8 @@
+# Scratch files aren't implemented for mmixware
+# (_stat is a stub and files can't be deleted).
+
+if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_execute_xfail "mmix-knuth-mmixware"
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/io0.x b/gcc/testsuite/g77.f-torture/execute/io0.x
new file mode 100644
index 00000000000..027dcb5ccae
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/io0.x
@@ -0,0 +1,8 @@
+# Scratch files aren't implemented for mmixware
+# (_stat is a stub and files can't be deleted).
+
+if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_execute_xfail "mmix-knuth-mmixware"
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/io1.x b/gcc/testsuite/g77.f-torture/execute/io1.x
new file mode 100644
index 00000000000..027dcb5ccae
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/io1.x
@@ -0,0 +1,8 @@
+# Scratch files aren't implemented for mmixware
+# (_stat is a stub and files can't be deleted).
+
+if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_execute_xfail "mmix-knuth-mmixware"
+}
+
+return 0
diff --git a/gcc/testsuite/g77.f-torture/execute/u77-test.x b/gcc/testsuite/g77.f-torture/execute/u77-test.x
new file mode 100644
index 00000000000..ff4c1e29f0b
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/u77-test.x
@@ -0,0 +1,8 @@
+# Various intrinsics not implemented and not implementable; will fail at
+# link time.
+
+if { [istarget "mmix-knuth-mmixware"] } {
+	set torture_compile_xfail "mmix-knuth-mmixware"
+}
+
+return 0