diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-07-25 16:40:26 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@gcc.gnu.org> | 2012-07-25 16:40:26 +0000 |
| commit | a35c9beff6490bacf35d5aa12ad345e056206290 (patch) | |
| tree | 199bb564038b88629779fdb75cdd2726666c9d70 | |
| parent | d16586194f8662e133ad6bec073fd6b57d3ca2a4 (diff) | |
| download | gcc-a35c9beff6490bacf35d5aa12ad345e056206290.zip gcc-a35c9beff6490bacf35d5aa12ad345e056206290.tar.gz gcc-a35c9beff6490bacf35d5aa12ad345e056206290.tar.bz2 | |
list_read.c (list_formatted_read_scalar): Fix copying real value back to temporary.
* io/list_read.c (list_formatted_read_scalar): Fix copying real
value back to temporary.
From-SVN: r189856
| -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 96a8e8b..9f0ed3e 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 6155d97..9d301d6 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); |