diff options
| author | Hans-Peter Nilsson <hp@bitrange.com> | 2002-04-03 01:45:43 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@gcc.gnu.org> | 2002-04-03 01:45:43 +0000 |
| commit | e78c4529cb765a3e6772d668453688bd58686b5a (patch) | |
| tree | 5cff8916cd40169149d043bf89bdea3d9deadad6 | |
| parent | a06c96f411f5de7e1f3b798e7ec460ea70747933 (diff) | |
| download | gcc-e78c4529cb765a3e6772d668453688bd58686b5a.zip gcc-e78c4529cb765a3e6772d668453688bd58686b5a.tar.gz gcc-e78c4529cb765a3e6772d668453688bd58686b5a.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/f77-edit-i-in.f | 3 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20001201.x | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/io0.x | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/io1.x | 8 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/u77-test.x | 8 |
6 files changed, 39 insertions, 1 deletions
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 <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 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 <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 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 |