aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/libgfortran/io/list_read.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/libgfortran/io/list_read.c')
-rw-r--r--gcc-4.9/libgfortran/io/list_read.c16
1 files changed, 2 insertions, 14 deletions
diff --git a/gcc-4.9/libgfortran/io/list_read.c b/gcc-4.9/libgfortran/io/list_read.c
index 625ba0c85..2e739f2da 100644
--- a/gcc-4.9/libgfortran/io/list_read.c
+++ b/gcc-4.9/libgfortran/io/list_read.c
@@ -1923,20 +1923,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')
@@ -1951,7 +1940,6 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p,
else
goto cleanup;
}
-
}
else
{