OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/31199 (write with "t1" + nonadvancing transfer format gives wrong output) 

2007-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31199
	* gfortran.dg/fmt_t_4.f90: New test.

From-SVN: r123207
This commit is contained in:
Jerry DeLisle 2007-03-26 03:41:29 +00:00
parent 2ff0a77e97
commit 420b320a12
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31199
* gfortran.dg/fmt_t_4.f90: New test.
2007-03-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/31297

16
gcc/testsuite/gfortran.dg/fmt_t_4.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do run }
! PR31199, test case from PR report.
program write_write
character(len=20) :: a,b,c
write (10,"(a,t1,a,a)") "xxxxxxxxx", "abc", "def"
write (10,"(a,t1,a)",advance='no') "xxxxxxxxx", "abc"
write (10,"(a)") "def"
write (10,"(a)") "abcdefxxx"
rewind(10)
read(10,*) a
read(10,*) b
read(10,*) c
if (a.ne.b) call abort()
IF (b.ne.c) call abort()
end