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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/endfile_3.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! pr44477 READ/WRITE not allowed after ENDFILE 
 !-------------------------------------------
   open(10, form='formatted', &

gcc/testsuite/gfortran.dg/endfile_4.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! pr44477 ENDFILE not allowed after ENDFILE
 !-------------------------------------------
   open(10, form='formatted', &

gcc/testsuite/gfortran.dg/fmt_cache_1.f

-! { 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>

gcc/testsuite/gfortran.dg/ftell_3.f90

-! { 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.

gcc/testsuite/gfortran.dg/namelist_66.f90

-! { dg-do run }
+! { dg-do run { target fd_truncate } }
 ! PR46010 Failure to read these two examples of namelists
 type ptracer
    character(len = 2)  :: sname

gcc/testsuite/gfortran.dg/pr47878.f90

 ! 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