diff options
Diffstat (limited to 'libgfortran/generated/in_unpack_i8.c')
-rw-r--r-- | libgfortran/generated/in_unpack_i8.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/generated/in_unpack_i8.c b/libgfortran/generated/in_unpack_i8.c index 1f3e6a23dd3..28c3a90f6af 100644 --- a/libgfortran/generated/in_unpack_i8.c +++ b/libgfortran/generated/in_unpack_i8.c @@ -71,7 +71,7 @@ internal_unpack_8 (gfc_array_i8 * d, const GFC_INTEGER_8 * src) if (dsize != 0) { - memcpy (dest, src, dsize * 8); + memcpy (dest, src, dsize * sizeof (GFC_INTEGER_8)); return; } |