diff options
Diffstat (limited to 'gcc-4.9/libgfortran/runtime/in_pack_generic.c')
| -rw-r--r-- | gcc-4.9/libgfortran/runtime/in_pack_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc-4.9/libgfortran/runtime/in_pack_generic.c b/gcc-4.9/libgfortran/runtime/in_pack_generic.c index 1b8c55843..aab155df6 100644 --- a/gcc-4.9/libgfortran/runtime/in_pack_generic.c +++ b/gcc-4.9/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; |