procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

f77-edit-i-in.f: xfail for mmix-knuth-mmixware.

Browse source 
* 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
This commit is contained in:
Hans-Peter Nilsson 2002-04-03 01:45:43 +00:00 • committed by Hans-Peter Nilsson
parent a06c96f411
commit e78c4529cb
6 changed files with 39 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -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.

3
gcc/testsuite/g77.dg/f77-edit-i-in.f
View file

@ -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')

8
gcc/testsuite/g77.f-torture/execute/20001201.x Normal file
View file

@ -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

8
gcc/testsuite/g77.f-torture/execute/io0.x Normal file
View file

@ -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

8
gcc/testsuite/g77.f-torture/execute/io1.x Normal file
View file

@ -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

8
gcc/testsuite/g77.f-torture/execute/u77-test.x Normal file
View file

@ -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