diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-05-12 12:23:00 -0700 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-05-12 13:40:41 -0700 |
| commit | cf3b032b8fb681516ccacbe3689f1cad43a1773a (patch) | |
| tree | 8e44aca2e6ac622d55b909c77615c1af2db5d977 /libgfortran/io | |
| parent | 00fffa91f7766caa1e5b730d6a996fea0bfab8dc (diff) | |
| download | gcc-cf3b032b8fb681516ccacbe3689f1cad43a1773a.zip gcc-cf3b032b8fb681516ccacbe3689f1cad43a1773a.tar.gz gcc-cf3b032b8fb681516ccacbe3689f1cad43a1773a.tar.bz2 | |
Fortran: Initialize last_char for internal units.
PR fortran/109662
libgfortran/ChangeLog:
* io/unit.c (set_internal_unit): Set the internal unit
last_char to zero so that previous EOF characters do not
influence the next read.
Diffstat (limited to 'libgfortran/io')
| -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 82664dc..36d0259 100644 --- a/libgfortran/io/unit.c +++ b/libgfortran/io/unit.c @@ -504,6 +504,7 @@ set_internal_unit (st_parameter_dt *dtp, gfc_unit *iunit, int kind) iunit->current_record=0; iunit->read_bad = 0; iunit->endfile = NO_ENDFILE; + iunit->last_char = 0; /* Set flags for the internal unit. */ |