diff options
| author | Hans-Peter Nilsson <hp@axis.com> | 2011-05-04 21:46:42 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@gcc.gnu.org> | 2011-05-04 21:46:42 +0000 |
| commit | bf9fa1b972229c9caa32c5b95c0ca211757a1e9b (patch) | |
| tree | 00cbee788179babb7aaac6877545d6e64c9f0be8 | |
| parent | f1a0defed4939f359f756121cb14064a857826e8 (diff) | |
| download | gcc-bf9fa1b972229c9caa32c5b95c0ca211757a1e9b.zip gcc-bf9fa1b972229c9caa32c5b95c0ca211757a1e9b.tar.gz gcc-bf9fa1b972229c9caa32c5b95c0ca211757a1e9b.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/endfile_3.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/endfile_4.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_cache_1.f | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ftell_3.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_66.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr47878.f90 | 2 |
7 files changed, 13 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 98d963c..32d9f96 100644 --- 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 0c41314..3e90dda 100644 --- 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 a2462c9..3516437 100644 --- 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 1062c2f..b9b9fe8 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, <jvdelisle@gcc.gnu.org> diff --git a/gcc/testsuite/gfortran.dg/ftell_3.f90 b/gcc/testsuite/gfortran.dg/ftell_3.f90 index 16875d8..3e4681b 100644 --- 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 912261b..d779ea7 100644 --- 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 9cc4a08..c9227f4 100644 --- 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 |