procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/61049 (NIST test FM906 fails)

Browse source 
2014-05-06  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/61049
	* io/list_read.c (list_formatted_read_scalar): Use eat_separator
	and delete extraneous code.

From-SVN: r210134
This commit is contained in:
Jerry DeLisle 2014-05-07 01:31:42 +00:00
parent f03d1bb9cb
commit 0222756393
2 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgfortran/ChangeLog
View file

@ -1,3 +1,9 @@
2014-05-06 Jerry DeLisle <jvdelisle@gcc.gnu>
PR libfortran/61049
* io/list_read.c (list_formatted_read_scalar): Use eat_separator
and delete extraneous code.
2014-04-30 Tobias Burnus <burnus@net-b.de>
* caf/libcaf.h (_gfortran_caf_this_image, _gfortran_caf_num_images):

16
libgfortran/io/list_read.c
View file

@ -2054,20 +2054,9 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p,
}
if (is_separator (c))
{
/* Found a null value. Do not use eat_separator here otherwise
we will do an extra read from stdin. */
/* Found a null value. */
dtp->u.p.repeat_count = 0;
/* Set comma_flag. */
if ((c == ';'
&& dtp->u.p.current_unit->decimal_status == DECIMAL_COMMA)
||
(c == ','
&& dtp->u.p.current_unit->decimal_status == DECIMAL_POINT))
{
dtp->u.p.comma_flag = 1;
goto cleanup;
}
eat_separator (dtp);
/* Set end-of-line flag. */
if (c == '\n' || c == '\r')
@ -2082,7 +2071,6 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p,
else
goto cleanup;
}
}
else
{