From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 12 May 2023 19:23:00 +0000 (-0700)
Subject: Fortran: Initialize last_char for internal units.
X-Git-Tag: basepoints/gcc-15~9338
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cf3b032b8fb681516ccacbe3689f1cad43a1773a;p=thirdparty%2Fgcc.git

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.
---

diff --git a/libgfortran/io/unit.c b/libgfortran/io/unit.c
index 82664dc5f98b..36d025949c21 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.  */