diff options
Diffstat (limited to 'gcc-4.9/libgfortran/intrinsics/transpose_generic.c')
-rw-r--r-- | gcc-4.9/libgfortran/intrinsics/transpose_generic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc-4.9/libgfortran/intrinsics/transpose_generic.c b/gcc-4.9/libgfortran/intrinsics/transpose_generic.c index 5ee12ee10..a5e2947a6 100644 --- a/gcc-4.9/libgfortran/intrinsics/transpose_generic.c +++ b/gcc-4.9/libgfortran/intrinsics/transpose_generic.c @@ -60,7 +60,7 @@ transpose_internal (gfc_array_char *ret, gfc_array_char *source) GFC_DIMENSION_SET(ret->dim[1], 0, GFC_DESCRIPTOR_EXTENT(source,0) - 1, GFC_DESCRIPTOR_EXTENT(source, 1)); - ret->base_addr = xmalloc (size * size0 ((array_t*)ret)); + ret->base_addr = xmallocarray (size0 ((array_t*)ret), size); ret->offset = 0; } else if (unlikely (compile_options.bounds_check)) |