From: Hans-Peter Nilsson <hp@axis.com>
Date: Fri, 16 May 2008 14:07:37 +0000 (+0000)
Subject: f2003_io_4.f03, [...]: Gate test on effective_target fd_truncate.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5b7971f01cf2b0709995c7249e6c21a38acc5f7b;p=gcc.git

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 e256308c456..1889bf2f6c2 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 6ec14aa053f..f1d67c5aaae 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 d253a81bb64..92c708c2921 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 b816ded69c5..3949b1a372f 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 6d2c11dfcbe..f45741718dc 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 443cd2f2d55..4b8045ba43a 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 3512d08b7cc..2357223676b 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 0f048cf2100..c3e0d1c0bb7 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 bc9110fa3cd..8a8dd9d0997 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