diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2010-07-23 19:37:40 +0000 |
|---|---|---|
| committer | H.J. Lu <hongjiu.lu@intel.com> | 2010-07-23 19:37:40 +0000 |
| commit | e59b0ef2e7a1fb44791d473ee416aeb01fcb169c (patch) | |
| tree | 437dca120093cc7b1f6debf6f6b31779526c7192 /libgfortran/io/list_read.c | |
| parent | f25b023a0d9de6a6c1e1965d93ba6028cb03fc7d (diff) | |
| parent | 92ac755201aad4366eaff2b75b3239637bee3590 (diff) | |
Merged with trunk at revision 162480.ifunc
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/ifunc@162483 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/list_read.c')
| -rw-r--r-- | libgfortran/io/list_read.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 72016b73e29..c88edf69cb4 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1206,10 +1206,7 @@ parse_real (st_parameter_dt *dtp, void *buffer, int length) for ( ; c != ')'; c = next_char (dtp)) if (is_separator (c)) goto bad; - else - push_char (dtp, c); - push_char (dtp, ')'); c = next_char (dtp); if (is_separator (c)) unget_char (dtp, c); |