diff options
Diffstat (limited to 'libgfortran/m4/in_unpack.m4')
| -rw-r--r-- | libgfortran/m4/in_unpack.m4 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libgfortran/m4/in_unpack.m4 b/libgfortran/m4/in_unpack.m4 index ea9ccc89f76..47ae51d9ac0 100644 --- a/libgfortran/m4/in_unpack.m4 +++ b/libgfortran/m4/in_unpack.m4 @@ -35,9 +35,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -dnl Only the kind (ie size) is used to name the function. +dnl Only the kind (ie size) is used to name the function for integers, +dnl reals and logicals. For complex, it's c4 and c8. void -`internal_unpack_'rtype_kind (rtype * d, const rtype_name * src) +`internal_unpack_'rtype_ccode (rtype * d, const rtype_name * src) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -73,7 +74,7 @@ void if (dsize != 0) { - memcpy (dest, src, dsize * rtype_kind); + memcpy (dest, src, dsize * sizeof (rtype_name)); return; } |
