diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-04-28 02:03:21 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-04-28 02:03:21 +0000 |
| commit | 16d962d92cf0f9362467f4c693c296af6bfaba6a (patch) | |
| tree | 90a3e99020a35c7bc8694c854024d883c5c67a81 /gcc | |
| parent | a6ee54a63621ec8c54f641c13150fa6a4c6c6fac (diff) | |
| download | gcc-16d962d92cf0f9362467f4c693c296af6bfaba6a.zip gcc-16d962d92cf0f9362467f4c693c296af6bfaba6a.tar.gz gcc-16d962d92cf0f9362467f4c693c296af6bfaba6a.tar.bz2 | |
re PR libfortran/31532 (INQUIRE(...,POSITION=...) not standard conforming)
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.
From-SVN: r124252
Diffstat (limited to 'gcc')
0 files changed, 0 insertions, 0 deletions