This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Committed, g77.dg/f77-edit-i-in.f g77.f-torture/execute/20001201.x,io0.x, io1.x, u77-test.x xfail for mmixware
- From: Hans-Peter Nilsson <hp at bitrange dot com>
- To: <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 2 Apr 2002 20:50:14 -0500 (EST)
- Subject: Committed, g77.dg/f77-edit-i-in.f g77.f-torture/execute/20001201.x,io0.x, io1.x, u77-test.x xfail for mmixware
There are a few real MMIX GCC bugs exposed by the fortran
test-suite, but theses failures aren't. I xfail these rather
than just skip them, because AFAICT scratch files and those
intrinsics are expected to work and not optionally. They
shouldn't stay as failures because I don't intend to "fix" them
any time soon (though in-memory scratch files might be
implementable somehow). Will commit this to 3.1 too.
* 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.
Index: f77-edit-i-in.f
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/g77.dg/f77-edit-i-in.f,v
retrieving revision 1.1
diff -p -c -r1.1 f77-edit-i-in.f
*** f77-edit-i-in.f 2002/01/27 01:39:36 1.1
--- f77-edit-i-in.f 2002/04/03 01:40:35
*************** C (ANSI X3.9-1978 Section 13.5.9.1)
*** 3,9 ****
C
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
! C { dg-do run }
integer i,j
open(unit=10,status='SCRATCH')
--- 3,10 ----
C
C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
C
! 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 Tue Jan 1 05:00:00 1980
--- 20001201.x Wed Apr 3 03:25:27 2002
***************
*** 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
*** /dev/null Tue Jan 1 05:00:00 1980
--- io0.x Wed Apr 3 03:25:42 2002
***************
*** 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
*** /dev/null Tue Jan 1 05:00:00 1980
--- io1.x Wed Apr 3 03:25:51 2002
***************
*** 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
*** /dev/null Tue Jan 1 05:00:00 1980
--- u77-test.x Wed Apr 3 02:03:22 2002
***************
*** 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
brgds, H-P