diff options
Diffstat (limited to 'libgfortran/generated/transpose_r8.c')
| -rw-r--r-- | libgfortran/generated/transpose_r8.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/generated/transpose_r8.c b/libgfortran/generated/transpose_r8.c index 852bcdb2eb2..9f541e0fb7e 100644 --- a/libgfortran/generated/transpose_r8.c +++ b/libgfortran/generated/transpose_r8.c @@ -60,7 +60,8 @@ transpose_r8 (gfc_array_r8 * const restrict ret, GFC_DIMENSION_SET(ret->dim[1], 0, GFC_DESCRIPTOR_EXTENT(source,0) - 1, GFC_DESCRIPTOR_EXTENT(source, 1)); - ret->base_addr = xmalloc (sizeof (GFC_REAL_8) * size0 ((array_t *) ret)); + ret->base_addr = xmallocarray (size0 ((array_t *) ret), + sizeof (GFC_REAL_8)); ret->offset = 0; } else if (unlikely (compile_options.bounds_check)) { |
