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

re PR libfortran/19595 ([4.0 only] eor does not work) 

2005-01-29  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/19595
	* io/transfer.c (data_transfer_init): eor requires advance="NO".
testsuite/
	* gfortran.dg/eor_1.f90:  New test.

From-SVN: r94410
This commit is contained in:
Thomas Koenig 2005-01-29 15:45:17 +00:00 committed by Paul Brook
parent f240b8960c
commit 24a09741e4
4 changed files with 21 additions and 1 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 @@
2005-01-29 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/19595
* gfortran.dg/eor_1.f90: New test.
2005-01-29 Steven G. Kargl <kargls@comcast.net>
PR fortran/19589

10
gcc/testsuite/gfortran.dg/eor_1.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg do-run }
! PR 19451: The test for advance='NO' with eor used to be reversed.
program main
character*2 c
open(12, status='SCRATCH')
write(12, '(A)') '123', '456'
rewind(12)
read(12, '(A2)', advance='NO', eor=100) c
100 continue
end program main

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2005-01-29 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/19595
* io/transfer.c (data_transfer_init): eor requires advance="NO".
2005-01-25 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR libfortran/19524

2
libgfortran/io/transfer.c
View File

@ -1041,7 +1041,7 @@ data_transfer_init (int read_flag)
if (read_flag)
{
if (ioparm.eor != 0 && advance_status == ADVANCE_NO)
if (ioparm.eor != 0 && advance_status != ADVANCE_NO)
generate_error (ERROR_MISSING_OPTION,
"EOR specification requires an ADVANCE specification of NO");