mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-25 19:11:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/17709 (NULL I/O list and Format error.)

Browse Source 
PR libfortran/17709
	* io/transfer.c (data_transfer_init): Reset sf_seen_eor.
testsuite/
	* gfortran.dg/empty_format_1.f90: New test.

From-SVN: r88615
This commit is contained in:
Paul Brook 2004-10-06 18:27:58 +00:00 committed by Paul Brook
parent 575f7c2bd2
commit 7726f633fa
4 changed files with 32 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 @@
2004-10-06 Paul Brook <paul@codesourcery.com>
PR libfortran/17709
* gfortran.dg/empty_format_1.f90: New test.
2004-10-06 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/17568

21
gcc/testsuite/gfortran.dg/empty_format_1.f90 Normal file
View File

@ -0,0 +1,21 @@
! { dg-do run }
! PR 17709
! We weren't resetting the internal EOR flag correctly, so the second read
! wasn't advancing to the next line.
program main
integer io_unit
character*20 str
io_unit = 10
open (unit=io_unit,status='scratch',form='formatted')
write (io_unit, '(A)'), "Line1"
write (io_unit, '(A)'), "Line2"
write (io_unit, '(A)'), "Line3"
rewind (io_unit)
read (io_unit,'(A)') str
if (str .ne. "Line1") call abort
read (io_unit,'()')
read (io_unit,'(A)') str
if (str .ne. "Line3") call abort
close(unit=io_unit)
end

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-10-06 Paul Brook <paul@codesourcery.com>
PR libfortran/17709
* io/transfer.c (data_transfer_init): Reset sf_seen_eor.
2004-10-04 Andrew Pinski <pinskia@physics.uc.edu>
* intrinsics/mvbits.c: Commit the file.

1
libgfortran/io/transfer.c
View File

@ -1074,6 +1074,7 @@ data_transfer_init (int read_flag)
g.seen_dollar = 0;
g.first_item = 1;
g.item_count = 0;
sf_seen_eor = 0;
pre_position ();