This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Committed: fix gfortran regressions by requiring fd_truncate

Similar to
<http://gcc.gnu.org/ml/fortran/2009-04/msg00054.html>
but this time for gfortran.sum gfortran.dg/fmt_exhaust.f90.

Fixed as below, committed as obvious.

	* gfortran.dg/f2003_io_4.f03, gfortran.dg/read_size_noadvance.f90,
	gfortran.dg/namelist_39.f90, gfortran.dg/read_repeat.f90,
	gfortran.dg/fmt_exhaust.f90, gfortran.dg/fseek.f90,
	gfortran.dg/fmt_t_7.f, gfortran.dg/read_x_past.f,
	gfortran.dg/read_bad_advance.f90, gfortran.dg/backslash_3.f,
	gfortran.dg/namelist_56.f90, gfortran.dg/list_read_5.f90,
	gfortran.dg/fmt_cache_1.f, gfortran.dg/fmt_t_4.f90: Gate test on
	effective_target fd_truncate.


Index: gfortran.dg/f2003_io_4.f03
===================================================================
--- gfortran.dg/f2003_io_4.f03	(revision 149523)
+++ 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/read_size_noadvance.f90
===================================================================
--- gfortran.dg/read_size_noadvance.f90	(revision 149523)
+++ gfortran.dg/read_size_noadvance.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR26890 Test for use of SIZE variable in IO list.
 ! Test case from Paul Thomas.
 ! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
Index: gfortran.dg/namelist_39.f90
===================================================================
--- gfortran.dg/namelist_39.f90	(revision 149523)
+++ gfortran.dg/namelist_39.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR33421 and PR33253 Weird quotation of namelist output of character arrays
 ! Test case from Toon Moone, adapted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
Index: gfortran.dg/read_repeat.f90
===================================================================
--- gfortran.dg/read_repeat.f90	(revision 149523)
+++ gfortran.dg/read_repeat.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR39528 repeated entries not read when using list-directed input.
 ! Test case derived from reporters example.
 program rread
Index: gfortran.dg/fmt_exhaust.f90
===================================================================
--- gfortran.dg/fmt_exhaust.f90	(revision 149523)
+++ gfortran.dg/fmt_exhaust.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR27304 Test running out of data descriptors with data remaining.
 ! Derived from case in PR.  Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
       program test
Index: gfortran.dg/fseek.f90
===================================================================
--- gfortran.dg/fseek.f90	(revision 149523)
+++ gfortran.dg/fseek.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 
 PROGRAM test_fseek
   INTEGER, PARAMETER :: SEEK_SET = 0, SEEK_CUR = 1, SEEK_END = 2, fd=10
Index: gfortran.dg/fmt_t_7.f
===================================================================
--- gfortran.dg/fmt_t_7.f	(revision 149523)
+++ 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 prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
        program test
Index: gfortran.dg/read_x_past.f
===================================================================
--- gfortran.dg/read_x_past.f	(revision 149523)
+++ gfortran.dg/read_x_past.f	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options -w }
 ! PR 26661 : Test reading X's past file end with no LF or CR.
 ! PR 26880 : Tests that rewind clears the gfc_unit read_bad flag.
Index: gfortran.dg/read_bad_advance.f90
===================================================================
--- gfortran.dg/read_bad_advance.f90	(revision 149523)
+++ gfortran.dg/read_bad_advance.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR27138 Failure to advance line on bad list directed read.
 ! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
       program test
Index: gfortran.dg/backslash_3.f
===================================================================
--- gfortran.dg/backslash_3.f	(revision 149523)
+++ gfortran.dg/backslash_3.f	(working copy)
@@ -1,4 +1,4 @@
-C { dg-do run }
+C { dg-do run { target fd_truncate } }
 C { dg-options "-fbackslash" }
 C PR fortran/30278
       program a
Index: gfortran.dg/namelist_56.f90
===================================================================
--- gfortran.dg/namelist_56.f90	(revision 149523)
+++ gfortran.dg/namelist_56.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR37707 Namelist read of array of derived type incorrect
 ! Test case from Tobias Burnus
   IMPLICIT NONE
Index: gfortran.dg/list_read_5.f90
===================================================================
--- gfortran.dg/list_read_5.f90	(revision 149523)
+++ gfortran.dg/list_read_5.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR25307 Check handling of end-of-file conditions for list directed reads.
 ! Prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 program pr25307
Index: gfortran.dg/fmt_cache_1.f
===================================================================
--- gfortran.dg/fmt_cache_1.f	(revision 149523)
+++ gfortran.dg/fmt_cache_1.f	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! pr40662 segfaults when specific format is invoked twice.
 ! pr40330  incorrect io.
 ! test case derived from pr40662, <jvdelisle@gcc.gnu.org>
Index: gfortran.dg/fmt_t_4.f90
===================================================================
--- gfortran.dg/fmt_t_4.f90	(revision 149523)
+++ gfortran.dg/fmt_t_4.f90	(working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR31199, test case from PR report.
        program write_write
        character(len=20) :: a,b,c

brgds, H-P
Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]