diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-07-25 16:40:26 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-07-25 16:40:26 +0000 |
| commit | 9024b55da07bdaa55b91233cff282a72ccd2ef80 (patch) | |
| tree | 199bb564038b88629779fdb75cdd2726666c9d70 /libgfortran | |
| parent | d6d6ef8b971f5b0720d31eb53071d184de2475a7 (diff) | |
* io/list_read.c (list_formatted_read_scalar): Fix copying real
value back to temporary.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@189856 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 96a8e8ba42a..9f0ed3ec77f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2012-07-25 Andreas Schwab <schwab@linux-m68k.org> + + * io/list_read.c (list_formatted_read_scalar): Fix copying real + value back to temporary. + 2012-06-21 Janne Blomqvist <jb@gcc.gnu.org> PR fortran/39654 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 6155d974e8b..9d301d62418 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1888,7 +1888,7 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p, read_real (dtp, p, kind); /* Copy value back to temporary if needed. */ if (dtp->u.p.repeat_count > 0) - memcpy (dtp->u.p.value, p, kind); + memcpy (dtp->u.p.value, p, size); break; case BT_COMPLEX: read_complex (dtp, p, kind, size); |