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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 96a8e8ba42af46fe4b47be1e2dbafd87c49b05b9..9f0ed3ec77ff639bcba2e19d8a2e5ea3bda1f24c 100644 (file)
--- 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 6155d974e8be94ea7e644c4bf3733822b54ec786..9d301d6241894104381e036e525aa5e02f5b289c 100644 (file)
--- 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);