* lib/lib/target-supports.exp (check_effective_target_fd_truncate):

	New.
	* gfortran.fortran-torture/execute/list_read_1.x,
	gfortran.fortran-torture/execute/read_null_string.x,
	gfortran.fortran-torture/execute/backspace.x,
	gfortran.fortran-torture/execute/seq_io.x,
	gfortran.fortran-torture/execute/slash_edit.x,
	gfortran.fortran-torture/execute/unopened_unit_1.x,
	gfortran.dg/namelist_21.f90, gfortran.dg/advance_5.f90,
	gfortran.dg/fmt_t_7.f, gfortran.dg/eor_1.f90, 
	gfortran.dg/read_x_past.f, gfortran.dg/tl_editing.f90,
	gfortran.dg/ftell_2.f90, gfortran.dg/namelist_13.f90,
	gfortran.dg/namelist_22.f90, gfortran.dg/advance_6.f90,
	gfortran.dg/read_bad_advance.f90, gfortran.dg/func_derived_3.f90,
	gfortran.dg/namelist_40.f90, gfortran.dg/x_slash_2.f,
	gfortran.dg/namelist_14.f90, gfortran.dg/backspace_1.f,
	gfortran.dg/namelist_23.f90, gfortran.dg/pr17285.f90,
	gfortran.dg/read_noadvance.f90, gfortran.dg/namelist_use_only.f90,
	gfortran.dg/namelist_41.f90, gfortran.dg/namelist_15.f90,
	gfortran.dg/backspace_3.f, gfortran.dg/backslash_3.f,
	gfortran.dg/namelist_24.f90, gfortran.dg/pr17286.f90,
	gfortran.dg/endfile.f90, gfortran.dg/open_access_append_1.f90,
	gfortran.dg/fmt_huge.f90, gfortran.dg/namelist_42.f90,
	gfortran.dg/pr18392.f90, gfortran.dg/pr19155.f, gfortran.dg/pr12884.f,
	gfortran.dg/namelist_16.f90, gfortran.dg/backspace_5.f,
	gfortran.dg/open_readonly_1.f90, gfortran.dg/fmt_read.f90,
	gfortran.dg/iostat_1.f90, gfortran.dg/namelist_43.f90,
	gfortran.dg/read_size_noadvance.f90, gfortran.dg/inquire_5.f90,
	gfortran.dg/read_many_1.f, gfortran.dg/namelist_17.f90,
	gfortran.dg/list_read_1.f90, gfortran.dg/backspace_10.f90,
	gfortran.dg/namelist_26.f90, gfortran.dg/unf_read_corrupted_2.f90,
	gfortran.dg/record_marker_1.f90, gfortran.dg/convert_implied_open.f90,
	gfortran.dg/iostat_2.f90, gfortran.dg/write_check3.f90,
	gfortran.dg/namelist_44.f90, gfortran.dg/namelist_use.f90,
	gfortran.dg/rewind_1.f90, gfortran.dg/streamio_11.f90,
	gfortran.dg/namelist_18.f90, gfortran.dg/backspace_9.f,
	gfortran.dg/dos_eol.f, gfortran.dg/read_eof_1.f90,
	gfortran.dg/namelist_27.f90, gfortran.dg/pad_no.f90,
	gfortran.dg/endfile.f, gfortran.dg/namelist_11.f,
	gfortran.dg/namelist_19.f90, gfortran.dg/eor_handling_1.f90,
	gfortran.dg/write_rewind_1.f, gfortran.dg/comma.f,
	gfortran.dg/read_eof_2.f90, gfortran.dg/namelist_28.f90,
	gfortran.dg/record_marker_3.f90, gfortran.dg/complex_read.f90,
	gfortran.dg/namelist_37.f90, gfortran.dg/error_recovery_5.f90,
	gfortran.dg/namelist_char_only.f90, gfortran.dg/pr18122.f90,
	gfortran.dg/list_read_4.f90, gfortran.dg/eor_handling_2.f90,
	gfortran.dg/read_eof_3.f90, gfortran.dg/dollar_edit_descriptor_1.f,
	gfortran.dg/pr19467.f90, gfortran.dg/namelist_38.f90,
	gfortran.dg/inquire_9.f90, gfortran.dg/list_read_5.f90,
	gfortran.dg/noadv_size.f90, gfortran.dg/backslash_1.f90,
	gfortran.dg/eor_handling_3.f90, gfortran.dg/read_eof_4.f90,
	gfortran.dg/runtime_warning_1.f90, gfortran.dg/x_slash_1.f,
	gfortran.dg/namelist_39.f90, gfortran.dg/streamio_3.f90,
	gfortran.dg/read_comma.f, gfortran.dg/pr19657.f,
	gfortran.dg/streamio_15.f90, gfortran.dg/list_read_6.f90,
	gfortran.dg/eor_handling_4.f90, gfortran.dg/backslash_2.f90,
	gfortran.dg/pr19216.f, gfortran.dg/PR19872.f,
	gfortran.dg/backspace_2.f, gfortran.dg/empty_format_1.f90,
	gfortran.dg/streamio_4.f90, gfortran.dg/append_1.f90,
	gfortran.dg/fgetc_1.f90, gfortran.dg/complex_write.f90,
	gfortran.dg/list_read_7.f90, gfortran.dg/eor_handling_5.f90,
	gfortran.dg/fmt_t_1.f90, gfortran.dg/pr17090.f90,
	gfortran.dg/backspace_4.f, gfortran.dg/shape_3.f90,
	gfortran.dg/unf_io_convert_1.f90, gfortran.dg/fgetc_2.f90,
	gfortran.dg/vector_subscript_3.f90, gfortran.dg/list_read_8.f90,
	gfortran.dg/flush_1.f90, gfortran.dg/advance_1.f90,
	gfortran.dg/fmt_t_2.f90, gfortran.dg/backspace_6.f,
	gfortran.dg/slash_1.f90, gfortran.dg/stat_1.f90,
	gfortran.dg/unformatted_recl_1.f90, gfortran.dg/record_marker_2.f,
	gfortran.dg/overwrite_1.f, gfortran.dg/unf_io_convert_2.f90,
	gfortran.dg/fmt_t_3.f90, gfortran.dg/backspace_8.f,
	gfortran.dg/stat_2.f90, gfortran.dg/pr18210.f90,
	gfortran.dg/unformatted_subrecord_1.f90, gfortran.dg/pr20257.f90,
	gfortran.dg/eof_1.f90, gfortran.dg/fmt_t_4.f90,
	gfortran.dg/unf_short_record_1.f90, gfortran.dg/fmt_exhaust.f90,
	gfortran.dg/namelist_20.f90, gfortran.dg/advance_4.f90,
	gfortran.dg/fmt_t_5.f90, gfortran.dg/namelist_12.f,
	gfortran.dg/backspace_7.f90, gfortran.dg/write_rewind_2.f,
	gfortran.dg/ftell_1.f90, gfortran.dg/fseek.f90,
	gfortran.dg/write_back.f: Gate test on effective_target
	fd_truncate.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132885 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 1 insertions, 1 deletions

diff --git a/gcc/testsuite/gfortran.dg/PR19872.f b/gcc/testsuite/gfortran.dg/PR19872.f
index 12bba3352a2..edc743b2e16 100644
--- a/gcc/testsuite/gfortran.dg/PR19872.f
+++ b/gcc/testsuite/gfortran.dg/PR19872.f
@@ -1,4 +1,4 @@
-! { dg-do run } 
+! { dg-do run { target fd_truncate } } 
 ! PR 19872 - closed and re-opened file not overwriten
       implicit none
       integer i(4)