diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-10-26 04:35:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-10-26 04:35:45 +0000 |
| commit | 807fb853ee3a10c5ce2f5ed52d3c84ede3dbbd2a (patch) | |
| tree | 47c5d1a5bbaf45540c19e9a7ef06f27799fc240b /libgfortran/io/unit.c | |
| parent | 7445de0a7b7dceda90638c48bc7933271f3ca5ce (diff) | |
| download | gcc-807fb853ee3a10c5ce2f5ed52d3c84ede3dbbd2a.zip gcc-807fb853ee3a10c5ce2f5ed52d3c84ede3dbbd2a.tar.gz gcc-807fb853ee3a10c5ce2f5ed52d3c84ede3dbbd2a.tar.bz2 | |
re PR fortran/29563 (Internal read loses data.)
2006-10-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29563
* io/io.h (st_parameter_dt): Add new flag at_eof.
* io/list_read.c (next_char): Set flag when EOF and return '\n' to
signal EOR. Check flag on next call and jump out.
* io/unit.c (get_internal_unit): Initialize new flag.
From-SVN: r118059
Diffstat (limited to 'libgfortran/io/unit.c')
| -rw-r--r-- | libgfortran/io/unit.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c index 6a22784..90e6d85 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -430,6 +430,7 @@ get_internal_unit (st_parameter_dt *dtp) dtp->u.p.skips = 0; dtp->u.p.pending_spaces = 0; dtp->u.p.max_pos = 0; + dtp->u.p.at_eof = 0; /* This flag tells us the unit is assigned to internal I/O. */ |