This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Patch to XFAIL f2003_io_*.f03 tests on HP platforms
- From: Steve Ellcey <sje at cup dot hp dot com>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org, jvdelisle at gcc dot gnu dot org
- Date: Mon, 3 Nov 2008 08:24:03 -0800 (PST)
- Subject: Patch to XFAIL f2003_io_*.f03 tests on HP platforms
- Reply-to: sje at cup dot hp dot com
Since it doesn't look like PR37839 (f2003 IO bugs) is going to be
fixed for 4.4, I would like to XFAIL the failing tests so that my
results are cleaner and it is easier to find regressions.
Is this patch (tested on IA64 and PA HP-UX platforms) OK to check in:
Steve Ellcey
sje@cup.hp.com
2008-11-03 Steve Ellcey <sje@cup.hp.com>
* gfortran.dg/f2003_io_1.f03: XFAIL until PR37839 is fixed.
* gfortran.dg/f2003_io_4.f03: Ditto.
* gfortran.dg/f2003_io_5.f03: Ditto.
* gfortran.dg/f2003_io_6.f03: Ditto.
* gfortran.dg/f2003_io_7.f03: Ditto.
Index: gfortran.dg/f2003_io_1.f03
===================================================================
--- gfortran.dg/f2003_io_1.f03 (revision 141542)
+++ gfortran.dg/f2003_io_1.f03 (working copy)
@@ -1,5 +1,6 @@
! { dg-do run { target fd_truncate } }
! { dg-options "-std=gnu" }
+! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
real :: a(4), b(4)
real :: c
Index: gfortran.dg/f2003_io_4.f03
===================================================================
--- gfortran.dg/f2003_io_4.f03 (revision 141542)
+++ gfortran.dg/f2003_io_4.f03 (working copy)
@@ -1,4 +1,5 @@
! { dg-do run { target fd_truncate } }
+! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of decimal= feature
Index: gfortran.dg/f2003_io_5.f03
===================================================================
--- gfortran.dg/f2003_io_5.f03 (revision 141542)
+++ gfortran.dg/f2003_io_5.f03 (working copy)
@@ -1,4 +1,5 @@
! { dg-do run { target fd_truncate } }
+! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of decimal="comma" in namelist and complex
integer :: i
Index: gfortran.dg/f2003_io_6.f03
===================================================================
--- gfortran.dg/f2003_io_6.f03 (revision 141542)
+++ gfortran.dg/f2003_io_6.f03 (working copy)
@@ -1,4 +1,5 @@
! { dg-do run }
+! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of decimal="comma" in namelist, checks separators
implicit none
Index: gfortran.dg/f2003_io_7.f03
===================================================================
--- gfortran.dg/f2003_io_7.f03 (revision 141542)
+++ gfortran.dg/f2003_io_7.f03 (working copy)
@@ -1,4 +1,5 @@
! { dg-do run { target fd_truncate } }
+! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of sign=, decimal=, and blank= .
program iotests