This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Committed: update fd_truncate gfortran.dg testsuite markers
- From: Hans-Peter Nilsson <hans-peter dot nilsson at axis dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Fri, 16 May 2008 16:11:26 +0200
- Subject: Committed: update fd_truncate gfortran.dg testsuite markers
There was a regression for gfortran.dg/fmt_t_7.f that on
inspection was due to it having acquired a truncation call
through the runtime. I updated that and the new tests that had
"Fortran runtime error: required ftruncate or chsize support not
present" messages in gfortran.log, ran past cris-elf and
committed as obvious. See
<http://gcc.gnu.org/ml/gcc-patches/2008-03/msg00226.html>.
I also dos2unix:ed gfortran.dg/fmt_t_7.f; those ^M:s stood out
(not actually shown below).
gcc/testsuite:
* gfortran.dg/f2003_io_4.f03, gfortran.dg/f2003_io_5.f03,
gfortran.dg/f2003_io_7.f03, gfortran.dg/namelist_45.f90,
gfortran.dg/namelist_46.f90, gfortran.dg/namelist_47.f90,
gfortran.dg/f2003_io_1.f03: Gate test on effective_target
fd_truncate.
* gfortran.dg/fmt_t_7.f: Ditto. Apply dos2unix.
Index: gfortran.dg/fmt_t_7.f
===================================================================
--- gfortran.dg/fmt_t_7.f (revision 135398)
+++ gfortran.dg/fmt_t_7.f (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! PR34974 null bytes when reverse-tabbing long records
! Test case prpared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
program test
Index: gfortran.dg/f2003_io_4.f03
===================================================================
--- gfortran.dg/f2003_io_4.f03 (revision 135421)
+++ gfortran.dg/f2003_io_4.f03 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! 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 135421)
+++ gfortran.dg/f2003_io_5.f03 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! 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_7.f03
===================================================================
--- gfortran.dg/f2003_io_7.f03 (revision 135421)
+++ gfortran.dg/f2003_io_7.f03 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
! Test of sign=, decimal=, and blank= .
program iotests
Index: gfortran.dg/namelist_45.f90
===================================================================
--- gfortran.dg/namelist_45.f90 (revision 135421)
+++ gfortran.dg/namelist_45.f90 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! PR35617 read namelist error with '!'
program test
character(len=128) :: mhdpath
Index: gfortran.dg/namelist_46.f90
===================================================================
--- gfortran.dg/namelist_46.f90 (revision 135421)
+++ gfortran.dg/namelist_46.f90 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! PR35627 Namelist read problem with short logical followed by read real
program test
implicit none
Index: gfortran.dg/namelist_47.f90
===================================================================
--- gfortran.dg/namelist_47.f90 (revision 135421)
+++ gfortran.dg/namelist_47.f90 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
module nml_47
type :: mt
Index: gfortran.dg/f2003_io_1.f03
===================================================================
--- gfortran.dg/f2003_io_1.f03 (revision 135421)
+++ gfortran.dg/f2003_io_1.f03 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
! { dg-options "-std=gnu" }
! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
real :: a(4), b(4)
brgds, H-P