[backport from gcc-4.8/trunk r189856 <mikpe@it.uu.se>]

libgfortran/

2012-07-25  Andreas Schwab  <schwab@linux-m68k.org>

	* io/list_read.c (list_formatted_read_scalar): Fix copying real
	value back to temporary.

--- gcc-4.6.3/libgfortran/io/list_read.c.~1~	2011-08-19 11:14:55.000000000 +0200
+++ gcc-4.6.3/libgfortran/io/list_read.c	2012-08-11 16:41:02.000000000 +0200
@@ -1861,7 +1861,7 @@ list_formatted_read_scalar (st_parameter
       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);