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:
parent
f240b8960c
commit
24a09741e4
|
@ -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>
|
2005-01-29 Steven G. Kargl <kargls@comcast.net>
|
||||||
|
|
||||||
PR fortran/19589
|
PR fortran/19589
|
||||||
|
|
|
@ -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
|
|
@ -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>
|
2005-01-25 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
||||||
|
|
||||||
PR libfortran/19524
|
PR libfortran/19524
|
||||||
|
|
|
@ -1041,7 +1041,7 @@ data_transfer_init (int read_flag)
|
||||||
|
|
||||||
if (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,
|
generate_error (ERROR_MISSING_OPTION,
|
||||||
"EOR specification requires an ADVANCE specification of NO");
|
"EOR specification requires an ADVANCE specification of NO");
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue