summaryrefslogtreecommitdiff
path: root/libgfortran/generated/maxloc0_4_i8.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/maxloc0_4_i8.c')
-rw-r--r--libgfortran/generated/maxloc0_4_i8.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c
index 2d14ddfeb87..335ad26f815 100644
--- a/libgfortran/generated/maxloc0_4_i8.c
+++ b/libgfortran/generated/maxloc0_4_i8.c
@@ -59,7 +59,7 @@ maxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->elem_len = retarray->elem_len;
retarray->type = retarray->type;
retarray->offset = 0;
- retarray->base_addr = xmalloc (sizeof (GFC_INTEGER_4) * rank);
+ retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
}
else
{
@@ -201,7 +201,7 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->elem_len = retarray->elem_len;
retarray->type = retarray->type;
retarray->offset = 0;
- retarray->base_addr = xmalloc (sizeof (GFC_INTEGER_4) * rank);
+ retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
}
else
{
@@ -368,7 +368,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
{
GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_4));
retarray->offset = 0;
- retarray->base_addr = xmalloc (sizeof (GFC_INTEGER_4) * rank);
+ retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
}
else if (unlikely (compile_options.bounds_check))
{