pr47878.f90, [...]: Gate test on effective_target fd_truncate.

	* gfortran.dg/pr47878.f90, gfortran.dg/endfile_3.f90,
	gfortran.dg/endfile_4.f90, gfortran.dg/ftell_3.f90,
	gfortran.dg/fmt_cache_1.f, gfortran.dg/namelist_66.f90:
	Gate test on effective_target fd_truncate.

From-SVN: r173397

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 98d963c45567d533e77dcfc62e357c06bd3f6b29..32d9f9654552b6c56d501438bad569f1912a80a7 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,10 @@
+2011-05-04  Hans-Peter Nilsson  <hp@axis.com>
+
+       * gfortran.dg/pr47878.f90, gfortran.dg/endfile_3.f90,
+       gfortran.dg/endfile_4.f90, gfortran.dg/ftell_3.f90,
+       gfortran.dg/fmt_cache_1.f, gfortran.dg/namelist_66.f90:
+       Gate test on effective_target fd_truncate.
+
 2011-05-04  Uros Bizjak  <ubizjak@gmail.com>
 
        * gcc.target/i386/recip-vec-divf.c: Decrease array sizes.

diff --git a/gcc/testsuite/gfortran.dg/endfile_3.f90 b/gcc/testsuite/gfortran.dg/endfile_3.f90
index 0c413145c5d3146c5950a598729e4718ca64e33c..3e90dda61414ad1c31820b5330a882fc0a41f178 100644 (file)
--- a/gcc/testsuite/gfortran.dg/endfile_3.f90
+++ b/gcc/testsuite/gfortran.dg/endfile_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! pr44477 READ/WRITE not allowed after ENDFILE 
 !-------------------------------------------
   open(10, form='formatted', &

diff --git a/gcc/testsuite/gfortran.dg/endfile_4.f90 b/gcc/testsuite/gfortran.dg/endfile_4.f90
index a2462c9f878ca6d74946c046aaabc34b182a4e98..351643781d0da94695f14cdc48a6a68bfd31b0b2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/endfile_4.f90
+++ b/gcc/testsuite/gfortran.dg/endfile_4.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! pr44477 ENDFILE not allowed after ENDFILE
 !-------------------------------------------
   open(10, form='formatted', &

diff --git a/gcc/testsuite/gfortran.dg/fmt_cache_1.f b/gcc/testsuite/gfortran.dg/fmt_cache_1.f
index 1062c2f059bc80bfe07682bf8a7dcc1b89e0c103..b9b9fe8ddc9f2b081f8b7b68590a9a38e5483bcf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_cache_1.f
+++ b/gcc/testsuite/gfortran.dg/fmt_cache_1.f
@@ -1,4 +1,4 @@
-! { 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>

diff --git a/gcc/testsuite/gfortran.dg/ftell_3.f90 b/gcc/testsuite/gfortran.dg/ftell_3.f90
index 16875d812a80abf655cff709829d07c4e0671e60..3e4681b58f56373d95a9bcc2991ab650a1e16e96 100644 (file)
--- a/gcc/testsuite/gfortran.dg/ftell_3.f90
+++ b/gcc/testsuite/gfortran.dg/ftell_3.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR43605 FTELL intrinsic returns incorrect position
 ! Contributed by Janne Blomqvist, Manfred Schwarb
 ! and Dominique d'Humieres.

diff --git a/gcc/testsuite/gfortran.dg/namelist_66.f90 b/gcc/testsuite/gfortran.dg/namelist_66.f90
index 912261b4dc607de17d5357d4c0148ab3a00b649f..d779ea7b735b722e416afede655a8c335bc0b3ba 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_66.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_66.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR46010 Failure to read these two examples of namelists
 type ptracer
    character(len = 2)  :: sname

diff --git a/gcc/testsuite/gfortran.dg/pr47878.f90 b/gcc/testsuite/gfortran.dg/pr47878.f90
index 9cc4a08603195f5c1ad87e45bad5593613671046..c9227f400070e5da0f0d496ccd33c3a3cd129b4f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr47878.f90
+++ b/gcc/testsuite/gfortran.dg/pr47878.f90
@@ -1,5 +1,5 @@
 ! PR fortran/47878
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
   integer :: a(5)
   open (99, recl = 40)
   write (99, '(5i3)') 1, 2, 3