diff options
Diffstat (limited to 'libgfortran/m4/transpose.m4')
-rw-r--r-- | libgfortran/m4/transpose.m4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4 index a60ca6d27cc..f5581f1b8e6 100644 --- a/libgfortran/m4/transpose.m4 +++ b/libgfortran/m4/transpose.m4 @@ -61,7 +61,7 @@ transpose_'rtype_code` ('rtype` * const restrict ret, GFC_DIMENSION_SET(ret->dim[1], 0, GFC_DESCRIPTOR_EXTENT(source,0) - 1, GFC_DESCRIPTOR_EXTENT(source, 1)); - ret->base_addr = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) ret)); + ret->base_addr = xmalloc (sizeof ('rtype_name`) * size0 ((array_t *) ret)); ret->offset = 0; } else if (unlikely (compile_options.bounds_check)) { |