1 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index f47d473df91..51767d07672 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1270,7 +1270,12 @@ list_formatted_read (bt type, void *p, int len)
       if (at_eol)
         finish_separator ();
       else
-        eat_spaces ();
+        {
+          eat_spaces ();
+          /* trailing spaces prior to end of line */
+          if (at_eol)
+            finish_separator ();
+        }
 
       saved_type = BT_NULL;
       repeat_count = 1;