From 706410a439a80af6dda044dc7b400d74b030b6e1 Mon Sep 17 00:00:00 2001 From: hp Date: Wed, 3 Apr 2002 01:45:43 +0000 Subject: [PATCH] * 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: svn+ssh://gcc.gnu.org/svn/gcc/trunk@51771 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 754b986..30b2666 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2002-04-03 Hans-Peter Nilsson + * 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 729a1f0..e4c6834 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 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 0000000..027dcb5 --- /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 0000000..027dcb5 --- /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 0000000..027dcb5 --- /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 0000000..ff4c1e2 --- /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 -- 2.7.4