diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-28 02:03:21 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-28 02:03:21 +0000 |
| commit | f4bfed80dc6b67b5cb6075f8911824bcf2d2473b (patch) | |
| tree | 90a3e99020a35c7bc8694c854024d883c5c67a81 /libgfortran/io/io.h | |
| parent | 187386f3c3bb1259b23d25bbbc98210120eff7cc (diff) | |
| download | gcc-f4bfed80dc6b67b5cb6075f8911824bcf2d2473b.tar.gz | |
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
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index df006693b28..1e5a6c9fdbf 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -693,6 +693,9 @@ internal_proto(get_unit); extern void unlock_unit (gfc_unit *); internal_proto(unlock_unit); +extern void update_position (gfc_unit *); +internal_proto(update_position); + /* open.c */ extern gfc_unit *new_unit (st_parameter_open *, gfc_unit *, unit_flags *); |