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

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

From-SVN: r135423

gcc/testsuite/ChangeLog

+2008-05-16  Hans-Peter Nilsson  <hp@axis.com>
+
+	* 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.
+
 2008-05-16  Daniel Kraft  <d@domob.eu>
 
 	* gfortran.dg/private_type_6.f90:  Adapted expected error messages.

gcc/testsuite/gfortran.dg/f2003_io_1.f03

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

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/f2003_io_5.f03

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

gcc/testsuite/gfortran.dg/f2003_io_7.f03

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

gcc/testsuite/gfortran.dg/fmt_t_7.f

-! { dg-do run }
-! PR34974 null bytes when reverse-tabbing long records
-! Test case prpared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
-       program test
-       character(1) :: a, b, c
-       write (10,'(t50000,a,t1,a)') 'b', 'a'
-       close (10)
-       open (10, access="stream")
-       read (10, pos=1) a
-       read (10, pos=50000) b
-       read (10, pos=25474) c
-       close (10, status="delete")
-       if (a /= "a") call abort
-       if (b /= "b") call abort
-       if (c /= " ") call abort
-       end
+! { 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
+       character(1) :: a, b, c
+       write (10,'(t50000,a,t1,a)') 'b', 'a'
+       close (10)
+       open (10, access="stream")
+       read (10, pos=1) a
+       read (10, pos=50000) b
+       read (10, pos=25474) c
+       close (10, status="delete")
+       if (a /= "a") call abort
+       if (b /= "b") call abort
+       if (c /= " ") call abort
+       end

gcc/testsuite/gfortran.dg/namelist_45.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR35617 read namelist error with '!'
 program test
   character(len=128) :: mhdpath

gcc/testsuite/gfortran.dg/namelist_46.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR35627 Namelist read problem with short logical followed by read real
 program test
   implicit none

gcc/testsuite/gfortran.dg/namelist_47.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 
 module nml_47
   type             ::  mt