f2003_io_4.f03, [...]: Gate test on effective_target fd_truncate.

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

From-SVN: r149524

gcc/testsuite/ChangeLog

+2009-07-12  Hans-Peter Nilsson  <hp@axis.com>
+
+	* 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.
+
 2009-07-11  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/specs/addr1.ads: New test.

gcc/testsuite/gfortran.dg/backslash_3.f

-C { dg-do run }
+C { dg-do run { target fd_truncate } }
 C { dg-options "-fbackslash" }
 C PR fortran/30278
       program a

gcc/testsuite/gfortran.dg/f2003_io_4.f03

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 ! Test of decimal= feature
 

gcc/testsuite/gfortran.dg/fmt_cache_1.f

-! { 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>

gcc/testsuite/gfortran.dg/fmt_exhaust.f90

-! { 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

gcc/testsuite/gfortran.dg/fmt_t_4.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR31199, test case from PR report.
        program write_write
        character(len=20) :: a,b,c

gcc/testsuite/gfortran.dg/fmt_t_7.f

-! { 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

gcc/testsuite/gfortran.dg/fseek.f90

-! { 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

gcc/testsuite/gfortran.dg/list_read_5.f90

-! { 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

gcc/testsuite/gfortran.dg/namelist_39.f90

-! { 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>
 

gcc/testsuite/gfortran.dg/namelist_56.f90

-! { 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

gcc/testsuite/gfortran.dg/read_bad_advance.f90

-! { 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

gcc/testsuite/gfortran.dg/read_repeat.f90

-! { 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

gcc/testsuite/gfortran.dg/read_size_noadvance.f90

-! { 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>

gcc/testsuite/gfortran.dg/read_x_past.f

-! { 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.