OSDN Git Service

2007-04-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 28 Apr 2007 02:03:21 +0000 (02:03 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 28 Apr 2007 02:03:21 +0000 (02:03 +0000)
commitf4bfed80dc6b67b5cb6075f8911824bcf2d2473b
tree90a3e99020a35c7bc8694c854024d883c5c67a81
parent187386f3c3bb1259b23d25bbbc98210120eff7cc
2007-04-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR libfortran/31532
* io/file_pos.c (st_backspace): Set flags.position for end of file
condition and use new function update_position.
(st_endfile): Use new function update_position.
* io/io.h: Add prototype for new function.
* io/inquire.c (inquire_via_unit): If not direct access, set NEXTREC
to zero.
* io/unit.c (update_position): New function to update position info
used by inquire.
* io/transfer.c (next_record): Fix typo and use new function.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124252 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/file_pos.c
libgfortran/io/inquire.c
libgfortran/io/io.h
libgfortran/io/transfer.c
libgfortran/io/unit.c