re PR fortran/31199 (write with "t1" + nonadvancing transfer format gives wrong output)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Mon, 26 Mar 2007 03:23:15 +0000 (03:23 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Mon, 26 Mar 2007 03:23:15 +0000 (03:23 +0000)
commitbeb6a65e7573a9178764a1844d052cdeeb529322
tree7005f5c75c7f6dbaca78f2f73008ed5b96700d1d
parent75b63e8b5b4a8b5bd7621edb8a4e2eefcc186981
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
*io/io.h: Add saved_pos to gfc_unit structure.
*io/open.c (new_unit): Initialize saved_pos.
*io/transfer.c (data_transfer_init): Set max_pos to value in saved_pos.
(next_record_w): Fix whitespace.
(finalze_transfer): Calculate max_pos for ADVANCE="no" and save it for
later use.  If not ADVANCE="no" set saved_pos to zero.

From-SVN: r123205
libgfortran/ChangeLog
libgfortran/io/io.h
libgfortran/io/open.c
libgfortran/io/transfer.c