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

9 files changed, 32 insertions, 23 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e256308..1889bf2 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+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.
diff --git a/gcc/testsuite/gfortran.dg/f2003_io_1.f03 b/gcc/testsuite/gfortran.dg/f2003_io_1.f03
index 6ec14aa..f1d67c5 100644
--- a/gcc/testsuite/gfortran.dg/f2003_io_1.f03
+++ b/gcc/testsuite/gfortran.dg/f2003_io_1.f03
@@ -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)
diff --git a/gcc/testsuite/gfortran.dg/f2003_io_4.f03 b/gcc/testsuite/gfortran.dg/f2003_io_4.f03
index d253a81..92c708c 100644
--- a/gcc/testsuite/gfortran.dg/f2003_io_4.f03
+++ b/gcc/testsuite/gfortran.dg/f2003_io_4.f03
@@ -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
 
diff --git a/gcc/testsuite/gfortran.dg/f2003_io_5.f03 b/gcc/testsuite/gfortran.dg/f2003_io_5.f03
index b816ded..3949b1a 100644
--- a/gcc/testsuite/gfortran.dg/f2003_io_5.f03
+++ b/gcc/testsuite/gfortran.dg/f2003_io_5.f03
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/f2003_io_7.f03 b/gcc/testsuite/gfortran.dg/f2003_io_7.f03
index 6d2c11d..f457417 100644
--- a/gcc/testsuite/gfortran.dg/f2003_io_7.f03
+++ b/gcc/testsuite/gfortran.dg/f2003_io_7.f03
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/fmt_t_7.f b/gcc/testsuite/gfortran.dg/fmt_t_7.f
index 443cd2f..4b8045b 100644
--- a/gcc/testsuite/gfortran.dg/fmt_t_7.f
+++ b/gcc/testsuite/gfortran.dg/fmt_t_7.f
@@ -1,16 +1,16 @@
-! { 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
diff --git a/gcc/testsuite/gfortran.dg/namelist_45.f90 b/gcc/testsuite/gfortran.dg/namelist_45.f90
index 3512d08..2357223 100644
--- a/gcc/testsuite/gfortran.dg/namelist_45.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_45.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR35617 read namelist error with '!'
 program test
   character(len=128) :: mhdpath
diff --git a/gcc/testsuite/gfortran.dg/namelist_46.f90 b/gcc/testsuite/gfortran.dg/namelist_46.f90
index 0f048cf..c3e0d1c 100644
--- a/gcc/testsuite/gfortran.dg/namelist_46.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_46.f90
@@ -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
diff --git a/gcc/testsuite/gfortran.dg/namelist_47.f90 b/gcc/testsuite/gfortran.dg/namelist_47.f90
index bc9110f..8a8dd9d 100644
--- a/gcc/testsuite/gfortran.dg/namelist_47.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_47.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 
 module nml_47
   type             ::  mt