* 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: svn+ssh://gcc.gnu.org/svn/gcc/trunk@51771
138bc75d-0d04-0410-961f-
82ee72b054a4
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.
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')
--- /dev/null
+# 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
--- /dev/null
+# 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
--- /dev/null
+# 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
--- /dev/null
+# 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