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

	* gfortran.dg/namelist_51.f90, gfortran.dg/utf8_2.f03,
	gfortran.dg/namelist_48.f90, gfortran.dg/read_repeat.f90,
	gfortran.dg/streamio_9.f90, gfortran.dg/widechar_IO_1.f90,
	gfortran.dg/namelist_50.f90, gfortran.dg/namelist_52.f90,
	gfortran.dg/utf8_1.f03, gfortran.dg/namelist_56.f90,
	gfortran.dg/namelist_49.f90: Gate test on effective_target
	fd_truncate.
	* gfortran.dg/widechar_IO_3.f90: Ditto.  Fix typo in comment.

From-SVN: r145580

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 87db870009db674a8999d2ad16d149ee3a3bbf9a..0bebe9d821ff3535d4d0739f1bac4bbdd639a999 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,14 @@
+2009-04-06  Hans-Peter Nilsson  <hp@axis.com>
+
+       * gfortran.dg/namelist_51.f90, gfortran.dg/utf8_2.f03,
+       gfortran.dg/namelist_48.f90, gfortran.dg/read_repeat.f90,
+       gfortran.dg/streamio_9.f90, gfortran.dg/widechar_IO_1.f90,
+       gfortran.dg/namelist_50.f90, gfortran.dg/namelist_52.f90,
+       gfortran.dg/utf8_1.f03, gfortran.dg/namelist_56.f90,
+       gfortran.dg/namelist_49.f90: Gate test on effective_target
+       fd_truncate.
+       * gfortran.dg/widechar_IO_3.f90: Ditto.  Fix typo in comment.
+
 2009-04-05  Daniel Kraft  <d@domob.eu>
 
        PR fortran/38654

diff --git a/gcc/testsuite/gfortran.dg/namelist_48.f90 b/gcc/testsuite/gfortran.dg/namelist_48.f90
index e9a29285b1749d29354880fc37927dc743981a0d..0d1570bf304789ebf200fa94622875f11ab60c47 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_48.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_48.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! PR36538 namelist failure with tabs preceding object name
       program check1

diff --git a/gcc/testsuite/gfortran.dg/namelist_49.f90 b/gcc/testsuite/gfortran.dg/namelist_49.f90
index aec83eea965d83a85ba6116d26764cc2b42a55c3..e8efab33f3dcd1245925cfb47f63e5c5b702f5cc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_49.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_49.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! PR36546 Namelist error with tab following a comma and newline
       program check1

diff --git a/gcc/testsuite/gfortran.dg/namelist_50.f90 b/gcc/testsuite/gfortran.dg/namelist_50.f90
index 57e93fcbf25ba24a3030f340d1e8c2c193aadb0e..678161b56d13bad41afc897bcc7e25ddcbf473eb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_50.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_50.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR36657 Namelist string constant immediately followed by comment
 program gfcbug79
   implicit none

diff --git a/gcc/testsuite/gfortran.dg/namelist_51.f90 b/gcc/testsuite/gfortran.dg/namelist_51.f90
index 9663bd68d9fc3b98b27bef273e0fee7b42c399b1..152f9f8d8dfefd11f8158affe3a82104254cffe1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_51.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_51.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR36676 Namelist comment problems
 ! test case from PR, reduced by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 program mem_nml

diff --git a/gcc/testsuite/gfortran.dg/namelist_52.f90 b/gcc/testsuite/gfortran.dg/namelist_52.f90
index 6e31382927f41482298485ca2727290d0a64f8d8..e0975cf3ee8eb41eff2c70966bb7bc2ae78a5435 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_52.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_52.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR36582 Namelist I/O error: Bogus "Cannot match namelist object"
 ! Test case derived from PR.
 module mod1

diff --git a/gcc/testsuite/gfortran.dg/namelist_56.f90 b/gcc/testsuite/gfortran.dg/namelist_56.f90
index 03fda759f5c3df912e2629539b2dbcf486c8b72e..8d879fc910b5bbb2e751947ebd680edb1710372c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_56.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_56.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR37707 Namelist read of array of derived type incorrect
 ! Test case from Tobias Burnus
   IMPLICIT NONE

diff --git a/gcc/testsuite/gfortran.dg/read_repeat.f90 b/gcc/testsuite/gfortran.dg/read_repeat.f90
index 192ebe81ffbff2c566a7698d8fad24c34d7f0c96..ab7a6a4c7d5eda03f95fd8f1c1923d119c5dbc45 100644 (file)
--- a/gcc/testsuite/gfortran.dg/read_repeat.f90
+++ b/gcc/testsuite/gfortran.dg/read_repeat.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR39528 repeated entries not read when using list-directed input.
 ! Test case derived from reporters example.
 program rread

diff --git a/gcc/testsuite/gfortran.dg/streamio_9.f90 b/gcc/testsuite/gfortran.dg/streamio_9.f90
index 150c1c6c3934be16f88035ba995c04f31022f3cb..a134d549e1f979e1e73926d8b327cfdef67804e2 100644 (file)
--- a/gcc/testsuite/gfortran.dg/streamio_9.f90
+++ b/gcc/testsuite/gfortran.dg/streamio_9.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR29053 Stream IO test 9.
 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
 ! Test case derived from that given in PR by Steve Kargl.

diff --git a/gcc/testsuite/gfortran.dg/utf8_1.f03 b/gcc/testsuite/gfortran.dg/utf8_1.f03
index 6c30885cce520c9f9d3370506df45a7559e10307..f2d62f65b0b18b9ab7774867243c773da9dc8cbd 100644 (file)
--- a/gcc/testsuite/gfortran.dg/utf8_1.f03
+++ b/gcc/testsuite/gfortran.dg/utf8_1.f03
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 program test1

diff --git a/gcc/testsuite/gfortran.dg/utf8_2.f03 b/gcc/testsuite/gfortran.dg/utf8_2.f03
index 0146a2e281b747a623adf1da339cd0259ea082fc..3e409970bed2c2aaeea04099c8be09b0683e210e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/utf8_2.f03
+++ b/gcc/testsuite/gfortran.dg/utf8_2.f03
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! { dg-options "-fbackslash" }
 ! Contributed by Tobias Burnus
 program test2

diff --git a/gcc/testsuite/gfortran.dg/widechar_IO_1.f90 b/gcc/testsuite/gfortran.dg/widechar_IO_1.f90
index 0fe479cda64917a66524633cbf9acb60180a9048..0c7c5f3f807852d9f4e687f519f15ee43d6e15a6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/widechar_IO_1.f90
+++ b/gcc/testsuite/gfortran.dg/widechar_IO_1.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! Wide chracter I/O test 1, formatted and mixed kind
 ! Test case developed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
 program test1

diff --git a/gcc/testsuite/gfortran.dg/widechar_IO_3.f90 b/gcc/testsuite/gfortran.dg/widechar_IO_3.f90
index 6f4a10c857e150dda01e2799585b929a246ab57b..c09205e2d7d349a5e0fa364c1607dd841a85c99c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/widechar_IO_3.f90
+++ b/gcc/testsuite/gfortran.dg/widechar_IO_3.f90
@@ -1,5 +1,5 @@
-! { dg-do run }
-! Wide chracter I/O test 3, unformatted arrays
+! { dg-do run { target fd_truncate } }
+! Wide character I/O test 3, unformatted arrays
 ! Test case developed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
 program test1
   integer, parameter :: k4 = 4