From a264066fe2f4e01e239fca9563d069074b68c3e2 Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 28 Dec 2005 06:59:35 +0000
Subject: [PATCH] 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25419
* io/list_read.c (list_formatted_read_scalar): Allow comma to return a
null value (default).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109099 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/ChangeLog | 6 ++++++
libgfortran/io/list_read.c | 5 +----
2 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 02d38d95331c..65be7e725c6d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/25419
+ * io/list_read.c (list_formatted_read_scalar): Allow comma to return a
+ null value (default).
+
2005-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25307
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 9784403a39c9..b11f6a523ff2 100644
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1353,10 +1353,7 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p, int kind,
{ /* Found a null value. */
eat_separator (dtp);
dtp->u.p.repeat_count = 0;
- if (dtp->u.p.at_eol)
- finish_separator (dtp);
- else
- goto cleanup;
+ goto cleanup;
}
}
--
GitLab