diff options
Diffstat (limited to 'gcc-4.9/libgfortran/intrinsics/unpack_generic.c')
| -rw-r--r-- | gcc-4.9/libgfortran/intrinsics/unpack_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc-4.9/libgfortran/intrinsics/unpack_generic.c b/gcc-4.9/libgfortran/intrinsics/unpack_generic.c index 5d12cc11c..4bd99278e 100644 --- a/gcc-4.9/libgfortran/intrinsics/unpack_generic.c +++ b/gcc-4.9/libgfortran/intrinsics/unpack_generic.c @@ -125,7 +125,7 @@ unpack_internal (gfc_array_char *ret, const gfc_array_char *vector, rs *= extent[n]; } ret->offset = 0; - ret->base_addr = xmalloc (rs * size); + ret->base_addr = xmallocarray (rs, size); } else { |