Commit f61d4b67 by Steve Ellcey Committed by Steve Ellcey

re PR libfortran/37839 (st_parameter_dt has unwanted padding, is out of sync with compiler)

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

From-SVN: r141566
parent 38db79a6
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.
2008-11-03 Jakub Jelinek <jakub@redhat.com> 2008-11-03 Jakub Jelinek <jakub@redhat.com>
PR testsuite/37241 PR testsuite/37241
......
! { dg-do run { target fd_truncate } } ! { dg-do run { target fd_truncate } }
! { dg-options "-std=gnu" } ! { dg-options "-std=gnu" }
! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* powerpc*-*-* sparc*-sun-solaris2.* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
real :: a(4), b(4) real :: a(4), b(4)
real :: c real :: c
......
! { dg-do run { target fd_truncate } } ! { dg-do run { target fd_truncate } }
! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* powerpc*-*-* sparc*-sun-solaris2.* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of decimal= feature ! Test of decimal= feature
......
! { dg-do run { target fd_truncate } } ! { dg-do run { target fd_truncate } }
! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* powerpc*-*-* sparc*-sun-solaris2.* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of decimal="comma" in namelist and complex ! Test of decimal="comma" in namelist and complex
integer :: i integer :: i
......
! { dg-do run } ! { dg-do run }
! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* powerpc*-*-* sparc*-sun-solaris2.* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of decimal="comma" in namelist, checks separators ! Test of decimal="comma" in namelist, checks separators
implicit none implicit none
......
! { dg-do run { target fd_truncate } } ! { dg-do run { target fd_truncate } }
! { dg-xfail-run-if "PR37839" { { ia64-*-hpux* hppa*-*-* powerpc*-*-* sparc*-sun-solaris2.* } && ilp32 } { "*" } { "" } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of sign=, decimal=, and blank= . ! Test of sign=, decimal=, and blank= .
program iotests program iotests
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment