Commit b710b6bc by Jerry DeLisle

re PR fortran/39528 (repeated entries are not read when using list-directed input)

2009-03-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/39528
	* io/list_read.c (list_formatted_read_scalar): Move check for read
	completion to just after the check for a repeated value.

From-SVN: r145030
parent 09ac4473
2009-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/39528
* io/list_read.c (list_formatted_read_scalar): Move check for read
completion to just after the check for a repeated value.
2009-03-08 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2009-03-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/39402 PR libfortran/39402
......
/* Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008 /* Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008, 2009
Free Software Foundation, Inc. Free Software Foundation, Inc.
Contributed by Andy Vaught Contributed by Andy Vaught
Namelist input contributed by Paul Thomas Namelist input contributed by Paul Thomas
...@@ -1720,9 +1720,6 @@ list_formatted_read_scalar (st_parameter_dt *dtp, volatile bt type, void *p, ...@@ -1720,9 +1720,6 @@ list_formatted_read_scalar (st_parameter_dt *dtp, volatile bt type, void *p,
} }
else else
{ {
if (dtp->u.p.input_complete)
goto cleanup;
if (dtp->u.p.repeat_count > 0) if (dtp->u.p.repeat_count > 0)
{ {
if (check_type (dtp, type, kind)) if (check_type (dtp, type, kind))
...@@ -1730,6 +1727,9 @@ list_formatted_read_scalar (st_parameter_dt *dtp, volatile bt type, void *p, ...@@ -1730,6 +1727,9 @@ list_formatted_read_scalar (st_parameter_dt *dtp, volatile bt type, void *p,
goto set_value; goto set_value;
} }
if (dtp->u.p.input_complete)
goto cleanup;
if (dtp->u.p.at_eol) if (dtp->u.p.at_eol)
finish_separator (dtp); finish_separator (dtp);
else else
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment