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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e256308c4566c48b72e3e8d22da4936b94149253..1889bf2f6c229bac26cb42a44da7832f422a9104 100644 (file)
--- 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 6ec14aa053fd5ae88d5bd0e483136dae3933f56b..f1d67c5aaaef868d41ac8f07f13e5669f68d7b80 100644 (file)
--- 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 d253a81bb64e7767449efaf8a9339f05818ba038..92c708c2921ccef77c88be3c11dfdc2018738042 100644 (file)
--- 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 b816ded69c56076799ce225ab1fc65965dabafb4..3949b1a372f15bbefd13dc097d14e7f567017e08 100644 (file)
--- 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 6d2c11dfcbe7b75b85cd0d62286d6f39cd15828d..f45741718dc19f4be5b20895ee765f4d0ccd87dc 100644 (file)
--- 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 443cd2f2d554a538a4c87b624504c94b50bed483..4b8045ba43a0bfe91795b9db820688ee16870eb3 100644 (file)
--- 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 }\r
-! PR34974 null bytes when reverse-tabbing long records\r
-! Test case prpared by Jerry DeLisle <jvdelisle@gcc.gnu.org>\r
-       program test\r
-       character(1) :: a, b, c\r
-       write (10,'(t50000,a,t1,a)') 'b', 'a'\r
-       close (10)\r
-       open (10, access="stream")\r
-       read (10, pos=1) a\r
-       read (10, pos=50000) b\r
-       read (10, pos=25474) c\r
-       close (10, status="delete")\r
-       if (a /= "a") call abort\r
-       if (b /= "b") call abort\r
-       if (c /= " ") call abort\r
-       end\r
+! { 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 3512d08b7ccb5612e1e5e8654f4016de6f62c373..2357223676b8957858bc111c676b4f2cb7f6a0d0 100644 (file)
--- 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 0f048cf21001617628fe2004c67ac78ffc3c2255..c3e0d1c0bb774019a86fbc2e781ee3e2c1ee1281 100644 (file)
--- 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 bc9110fa3cdedeca0b8a1e37767e5f085cf28e12..8a8dd9d0997f2e45bbc036d86e5f87cc87de57b4 100644 (file)
--- 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