diff options
Diffstat (limited to 'libgfortran/runtime/in_pack_generic.c')
| -rw-r--r-- | libgfortran/runtime/in_pack_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/runtime/in_pack_generic.c b/libgfortran/runtime/in_pack_generic.c index 1b8c5584384..aab155df683 100644 --- a/libgfortran/runtime/in_pack_generic.c +++ b/libgfortran/runtime/in_pack_generic.c @@ -180,7 +180,7 @@ internal_pack (gfc_array_char * source) return source->base_addr; /* Allocate storage for the destination. */ - destptr = xmalloc (ssize * size); + destptr = xmallocarray (ssize, size); dest = (char *)destptr; src = source->base_addr; stride0 = stride[0] * size; |
