https://gcc.gnu.org/bugzilla/show_bug.cgi?id=101627
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #1 from kargl at gcc dot gnu.org ---
This might fix the issue, but I don't play in libgfortran very
often. Tried adding Jerry, but bugzilla did not like his addresses.
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 8cc7ddbe8e2..e9a628f234f 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1189,6 +1189,7 @@ read_character (st_parameter_dt *dtp, int length
__attribute__ ((unused)))
if ((c = next_char (dtp)) == EOF)
goto eof;
+
switch (c)
{
CASE_SEPARATORS:
@@ -1233,7 +1234,6 @@ read_character (st_parameter_dt *dtp, int length
__attribute__ ((unused)))
break;
}
- unget_char (dtp, c);
goto done;
CASE_SEPARATORS:
