From b96a645580b7d659e5723859802bcc44b25fc505 Mon Sep 17 00:00:00 2001 From: Hans-Peter Nilsson Date: Sun, 12 Jul 2009 02:44:22 +0000 Subject: [PATCH] f2003_io_4.f03, [...]: Gate test on effective_target fd_truncate. * gfortran.dg/f2003_io_4.f03, gfortran.dg/read_size_noadvance.f90, gfortran.dg/namelist_39.f90, gfortran.dg/read_repeat.f90, gfortran.dg/fmt_exhaust.f90, gfortran.dg/fseek.f90, gfortran.dg/fmt_t_7.f, gfortran.dg/read_x_past.f, gfortran.dg/read_bad_advance.f90, gfortran.dg/backslash_3.f, gfortran.dg/namelist_56.f90, gfortran.dg/list_read_5.f90, gfortran.dg/fmt_cache_1.f, gfortran.dg/fmt_t_4.f90: Gate test on effective_target fd_truncate. From-SVN: r149524 --- gcc/testsuite/ChangeLog | 11 +++++++++++ gcc/testsuite/gfortran.dg/backslash_3.f | 2 +- gcc/testsuite/gfortran.dg/f2003_io_4.f03 | 2 +- gcc/testsuite/gfortran.dg/fmt_cache_1.f | 2 +- gcc/testsuite/gfortran.dg/fmt_exhaust.f90 | 2 +- gcc/testsuite/gfortran.dg/fmt_t_4.f90 | 2 +- gcc/testsuite/gfortran.dg/fmt_t_7.f | 2 +- gcc/testsuite/gfortran.dg/fseek.f90 | 2 +- gcc/testsuite/gfortran.dg/list_read_5.f90 | 2 +- gcc/testsuite/gfortran.dg/namelist_39.f90 | 2 +- gcc/testsuite/gfortran.dg/namelist_56.f90 | 2 +- gcc/testsuite/gfortran.dg/read_bad_advance.f90 | 2 +- gcc/testsuite/gfortran.dg/read_repeat.f90 | 2 +- gcc/testsuite/gfortran.dg/read_size_noadvance.f90 | 2 +- gcc/testsuite/gfortran.dg/read_x_past.f | 2 +- 15 files changed, 25 insertions(+), 14 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5fd1d6b5cdb..06d7675748b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,14 @@ +2009-07-12 Hans-Peter Nilsson + + * gfortran.dg/f2003_io_4.f03, gfortran.dg/read_size_noadvance.f90, + gfortran.dg/namelist_39.f90, gfortran.dg/read_repeat.f90, + gfortran.dg/fmt_exhaust.f90, gfortran.dg/fseek.f90, + gfortran.dg/fmt_t_7.f, gfortran.dg/read_x_past.f, + gfortran.dg/read_bad_advance.f90, gfortran.dg/backslash_3.f, + gfortran.dg/namelist_56.f90, gfortran.dg/list_read_5.f90, + gfortran.dg/fmt_cache_1.f, gfortran.dg/fmt_t_4.f90: Gate test on + effective_target fd_truncate. + 2009-07-11 Eric Botcazou * gnat.dg/specs/addr1.ads: New test. diff --git a/gcc/testsuite/gfortran.dg/backslash_3.f b/gcc/testsuite/gfortran.dg/backslash_3.f index 905d2b4c302..8625b3724e4 100644 --- a/gcc/testsuite/gfortran.dg/backslash_3.f +++ b/gcc/testsuite/gfortran.dg/backslash_3.f @@ -1,4 +1,4 @@ -C { dg-do run } +C { dg-do run { target fd_truncate } } C { dg-options "-fbackslash" } C PR fortran/30278 program a 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 ! Test of decimal= feature diff --git a/gcc/testsuite/gfortran.dg/fmt_cache_1.f b/gcc/testsuite/gfortran.dg/fmt_cache_1.f index 3390b723e66..825b44c11a7 100644 --- 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, diff --git a/gcc/testsuite/gfortran.dg/fmt_exhaust.f90 b/gcc/testsuite/gfortran.dg/fmt_exhaust.f90 index 5db34051485..bea3f800532 100644 --- a/gcc/testsuite/gfortran.dg/fmt_exhaust.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_exhaust.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR27304 Test running out of data descriptors with data remaining. ! Derived from case in PR. Submitted by Jerry DeLisle . program test diff --git a/gcc/testsuite/gfortran.dg/fmt_t_4.f90 b/gcc/testsuite/gfortran.dg/fmt_t_4.f90 index e40a4fc46b7..62b8d49c046 100644 --- a/gcc/testsuite/gfortran.dg/fmt_t_4.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_t_4.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR31199, test case from PR report. program write_write character(len=20) :: a,b,c diff --git a/gcc/testsuite/gfortran.dg/fmt_t_7.f b/gcc/testsuite/gfortran.dg/fmt_t_7.f index f73baab3efc..718668ff404 100644 --- a/gcc/testsuite/gfortran.dg/fmt_t_7.f +++ b/gcc/testsuite/gfortran.dg/fmt_t_7.f @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR34974 null bytes when reverse-tabbing long records ! Test case prepared by Jerry DeLisle program test diff --git a/gcc/testsuite/gfortran.dg/fseek.f90 b/gcc/testsuite/gfortran.dg/fseek.f90 index 0189c408c6a..2649063ac59 100644 --- a/gcc/testsuite/gfortran.dg/fseek.f90 +++ b/gcc/testsuite/gfortran.dg/fseek.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } PROGRAM test_fseek INTEGER, PARAMETER :: SEEK_SET = 0, SEEK_CUR = 1, SEEK_END = 2, fd=10 diff --git a/gcc/testsuite/gfortran.dg/list_read_5.f90 b/gcc/testsuite/gfortran.dg/list_read_5.f90 index f69d1f3ccff..658c5249722 100644 --- a/gcc/testsuite/gfortran.dg/list_read_5.f90 +++ b/gcc/testsuite/gfortran.dg/list_read_5.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR25307 Check handling of end-of-file conditions for list directed reads. ! Prepared by Jerry DeLisle program pr25307 diff --git a/gcc/testsuite/gfortran.dg/namelist_39.f90 b/gcc/testsuite/gfortran.dg/namelist_39.f90 index 36721409fa5..82e631e0dd0 100644 --- a/gcc/testsuite/gfortran.dg/namelist_39.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_39.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR33421 and PR33253 Weird quotation of namelist output of character arrays ! Test case from Toon Moone, adapted by Jerry DeLisle diff --git a/gcc/testsuite/gfortran.dg/namelist_56.f90 b/gcc/testsuite/gfortran.dg/namelist_56.f90 index 03fda759f5c..8d879fc910b 100644 --- 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_bad_advance.f90 b/gcc/testsuite/gfortran.dg/read_bad_advance.f90 index 5b43cfecc7f..3ca4493c451 100644 --- a/gcc/testsuite/gfortran.dg/read_bad_advance.f90 +++ b/gcc/testsuite/gfortran.dg/read_bad_advance.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR27138 Failure to advance line on bad list directed read. ! Submitted by Jerry DeLisle program test diff --git a/gcc/testsuite/gfortran.dg/read_repeat.f90 b/gcc/testsuite/gfortran.dg/read_repeat.f90 index 192ebe81ffb..ab7a6a4c7d5 100644 --- 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/read_size_noadvance.f90 b/gcc/testsuite/gfortran.dg/read_size_noadvance.f90 index 819a28dcccb..37ecff90d65 100644 --- a/gcc/testsuite/gfortran.dg/read_size_noadvance.f90 +++ b/gcc/testsuite/gfortran.dg/read_size_noadvance.f90 @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! PR26890 Test for use of SIZE variable in IO list. ! Test case from Paul Thomas. ! Submitted by Jerry DeLisle diff --git a/gcc/testsuite/gfortran.dg/read_x_past.f b/gcc/testsuite/gfortran.dg/read_x_past.f index 4a6d05369d3..16f66234548 100644 --- a/gcc/testsuite/gfortran.dg/read_x_past.f +++ b/gcc/testsuite/gfortran.dg/read_x_past.f @@ -1,4 +1,4 @@ -! { dg-do run } +! { dg-do run { target fd_truncate } } ! { dg-options -w } ! PR 26661 : Test reading X's past file end with no LF or CR. ! PR 26880 : Tests that rewind clears the gfc_unit read_bad flag. -- 2.30.2