aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/g77.f-torture
diff options
context:
space:
mode:
authorHans-Peter Nilsson <hp@bitrange.com>2002-04-03 01:45:43 +0000
committerHans-Peter Nilsson <hp@bitrange.com>2002-04-03 01:45:43 +0000
commit43e71a77b43176953a14c12a4f946515cf90da7f (patch)
tree5cff8916cd40169149d043bf89bdea3d9deadad6 /gcc/testsuite/g77.f-torture
parentc59c3e37676f61a28e5cc4153ff4b62ec829cbb0 (diff)
* 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. git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@51771 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
-rw-r--r--gcc/testsuite/g77.f-torture/execute/20001201.x8
-rw-r--r--gcc/testsuite/g77.f-torture/execute/io0.x8
-rw-r--r--gcc/testsuite/g77.f-torture/execute/io1.x8
-rw-r--r--gcc/testsuite/g77.f-torture/execute/u77-test.x8
4 files changed, 32 insertions, 0 deletions
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