procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
This commit is contained in:
Hans-Peter Nilsson 2011-05-04 21:46:42 +00:00 • committed by Hans-Peter Nilsson
parent f1a0defed4
commit bf9fa1b972
7 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View file

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

2
gcc/testsuite/gfortran.dg/endfile_3.f90
View file

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

2
gcc/testsuite/gfortran.dg/endfile_4.f90
View file

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

2
gcc/testsuite/gfortran.dg/fmt_cache_1.f
View file

@ -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>

2
gcc/testsuite/gfortran.dg/ftell_3.f90
View file

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

2
gcc/testsuite/gfortran.dg/namelist_66.f90
View file

@ -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

2
gcc/testsuite/gfortran.dg/pr47878.f90
View file

@ -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