[Bug libfortran/71123] Namelist read failure on Windows

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71123

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---

This patch regression tests OK and fixes the namelist read.


diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index b8e174c5..6ea6007a 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -418,7 +418,7 @@ eat_spaces (st_parameter_dt *dtp)
   /* Now skip spaces, EOF and EOL are handled in next_char.  */
   do
     c = next_char (dtp);
-  while (c != EOF && (c == ' ' || c == '\t'));
+  while (c != EOF && (c == ' ' || c == '\t' || c == '\r'));

   unget_char (dtp, c);
   return c;