[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régressions {maxloc,minloc}_nan_2
Mikael Morin
mikael@gcc.gnu.org
Fri Jun 13 15:06:16 GMT 2025
https://gcc.gnu.org/g:5138dac980afe4b289689086a42358bc0c6c1ac7
commit 5138dac980afe4b289689086a42358bc0c6c1ac7
Author: Mikael Morin <mikael@gcc.gnu.org>
Date: Sun May 18 17:05:34 2025 +0200
Correction régressions {maxloc,minloc}_nan_2
Diff:
---
libgfortran/generated/iall_i1.c | 12 +++++++++---
libgfortran/generated/iall_i16.c | 12 +++++++++---
libgfortran/generated/iall_i2.c | 12 +++++++++---
libgfortran/generated/iall_i4.c | 12 +++++++++---
libgfortran/generated/iall_i8.c | 12 +++++++++---
libgfortran/generated/iany_i1.c | 12 +++++++++---
libgfortran/generated/iany_i16.c | 12 +++++++++---
libgfortran/generated/iany_i2.c | 12 +++++++++---
libgfortran/generated/iany_i4.c | 12 +++++++++---
libgfortran/generated/iany_i8.c | 12 +++++++++---
libgfortran/generated/iparity_i1.c | 12 +++++++++---
libgfortran/generated/iparity_i16.c | 12 +++++++++---
libgfortran/generated/iparity_i2.c | 12 +++++++++---
libgfortran/generated/iparity_i4.c | 12 +++++++++---
libgfortran/generated/iparity_i8.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_i1.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_i16.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_i2.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_i4.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_m1.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_m2.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_m4.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_m8.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_r10.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_r16.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_r17.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_r4.c | 12 +++++++++---
libgfortran/generated/maxloc1_16_r8.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_i1.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_i2.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_i4.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_m1.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_m16.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_m2.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_m4.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_m8.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_r10.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_r16.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_r17.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_r4.c | 12 +++++++++---
libgfortran/generated/maxloc1_4_r8.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_i1.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_i2.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_i4.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_m1.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_m16.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_m2.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_m4.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_m8.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_r10.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_r16.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_r17.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_r4.c | 12 +++++++++---
libgfortran/generated/maxloc1_8_r8.c | 12 +++++++++---
libgfortran/generated/maxval_i1.c | 12 +++++++++---
libgfortran/generated/maxval_i16.c | 12 +++++++++---
libgfortran/generated/maxval_i2.c | 12 +++++++++---
libgfortran/generated/maxval_i4.c | 12 +++++++++---
libgfortran/generated/maxval_i8.c | 12 +++++++++---
libgfortran/generated/maxval_m1.c | 12 +++++++++---
libgfortran/generated/maxval_m16.c | 12 +++++++++---
libgfortran/generated/maxval_m2.c | 12 +++++++++---
libgfortran/generated/maxval_m4.c | 12 +++++++++---
libgfortran/generated/maxval_m8.c | 12 +++++++++---
libgfortran/generated/maxval_r10.c | 12 +++++++++---
libgfortran/generated/maxval_r16.c | 12 +++++++++---
libgfortran/generated/maxval_r17.c | 12 +++++++++---
libgfortran/generated/maxval_r4.c | 12 +++++++++---
libgfortran/generated/maxval_r8.c | 12 +++++++++---
libgfortran/generated/minloc1_16_i1.c | 12 +++++++++---
libgfortran/generated/minloc1_16_i16.c | 12 +++++++++---
libgfortran/generated/minloc1_16_i2.c | 12 +++++++++---
libgfortran/generated/minloc1_16_i4.c | 12 +++++++++---
libgfortran/generated/minloc1_16_i8.c | 12 +++++++++---
libgfortran/generated/minloc1_16_m1.c | 12 +++++++++---
libgfortran/generated/minloc1_16_m16.c | 12 +++++++++---
libgfortran/generated/minloc1_16_m2.c | 12 +++++++++---
libgfortran/generated/minloc1_16_m4.c | 12 +++++++++---
libgfortran/generated/minloc1_16_m8.c | 12 +++++++++---
libgfortran/generated/minloc1_16_r10.c | 12 +++++++++---
libgfortran/generated/minloc1_16_r16.c | 12 +++++++++---
libgfortran/generated/minloc1_16_r17.c | 12 +++++++++---
libgfortran/generated/minloc1_16_r4.c | 12 +++++++++---
libgfortran/generated/minloc1_16_r8.c | 12 +++++++++---
libgfortran/generated/minloc1_4_i1.c | 12 +++++++++---
libgfortran/generated/minloc1_4_i16.c | 12 +++++++++---
libgfortran/generated/minloc1_4_i2.c | 12 +++++++++---
libgfortran/generated/minloc1_4_i4.c | 12 +++++++++---
libgfortran/generated/minloc1_4_i8.c | 12 +++++++++---
libgfortran/generated/minloc1_4_m1.c | 12 +++++++++---
libgfortran/generated/minloc1_4_m16.c | 12 +++++++++---
libgfortran/generated/minloc1_4_m2.c | 12 +++++++++---
libgfortran/generated/minloc1_4_m4.c | 12 +++++++++---
libgfortran/generated/minloc1_4_m8.c | 12 +++++++++---
libgfortran/generated/minloc1_4_r10.c | 12 +++++++++---
libgfortran/generated/minloc1_4_r16.c | 12 +++++++++---
libgfortran/generated/minloc1_4_r17.c | 12 +++++++++---
libgfortran/generated/minloc1_4_r4.c | 12 +++++++++---
libgfortran/generated/minloc1_4_r8.c | 12 +++++++++---
libgfortran/generated/minloc1_8_i1.c | 12 +++++++++---
libgfortran/generated/minloc1_8_i16.c | 12 +++++++++---
libgfortran/generated/minloc1_8_i2.c | 12 +++++++++---
libgfortran/generated/minloc1_8_i4.c | 12 +++++++++---
libgfortran/generated/minloc1_8_i8.c | 12 +++++++++---
libgfortran/generated/minloc1_8_m1.c | 12 +++++++++---
libgfortran/generated/minloc1_8_m16.c | 12 +++++++++---
libgfortran/generated/minloc1_8_m2.c | 12 +++++++++---
libgfortran/generated/minloc1_8_m4.c | 12 +++++++++---
libgfortran/generated/minloc1_8_m8.c | 12 +++++++++---
libgfortran/generated/minloc1_8_r10.c | 12 +++++++++---
libgfortran/generated/minloc1_8_r16.c | 12 +++++++++---
libgfortran/generated/minloc1_8_r17.c | 12 +++++++++---
libgfortran/generated/minloc1_8_r4.c | 12 +++++++++---
libgfortran/generated/minloc1_8_r8.c | 12 +++++++++---
libgfortran/generated/minval_i1.c | 12 +++++++++---
libgfortran/generated/minval_i16.c | 12 +++++++++---
libgfortran/generated/minval_i2.c | 12 +++++++++---
libgfortran/generated/minval_i4.c | 12 +++++++++---
libgfortran/generated/minval_i8.c | 12 +++++++++---
libgfortran/generated/minval_m1.c | 12 +++++++++---
libgfortran/generated/minval_m16.c | 12 +++++++++---
libgfortran/generated/minval_m2.c | 12 +++++++++---
libgfortran/generated/minval_m4.c | 12 +++++++++---
libgfortran/generated/minval_m8.c | 12 +++++++++---
libgfortran/generated/minval_r10.c | 12 +++++++++---
libgfortran/generated/minval_r16.c | 12 +++++++++---
libgfortran/generated/minval_r17.c | 12 +++++++++---
libgfortran/generated/minval_r4.c | 12 +++++++++---
libgfortran/generated/minval_r8.c | 12 +++++++++---
libgfortran/generated/norm2_r10.c | 4 +++-
libgfortran/generated/norm2_r16.c | 4 +++-
libgfortran/generated/norm2_r17.c | 4 +++-
libgfortran/generated/norm2_r4.c | 4 +++-
libgfortran/generated/norm2_r8.c | 4 +++-
libgfortran/generated/parity_l1.c | 4 +++-
libgfortran/generated/parity_l16.c | 4 +++-
libgfortran/generated/parity_l2.c | 4 +++-
libgfortran/generated/parity_l4.c | 4 +++-
libgfortran/generated/parity_l8.c | 4 +++-
libgfortran/generated/product_c10.c | 12 +++++++++---
libgfortran/generated/product_c16.c | 12 +++++++++---
libgfortran/generated/product_c17.c | 12 +++++++++---
libgfortran/generated/product_c4.c | 12 +++++++++---
libgfortran/generated/product_c8.c | 12 +++++++++---
libgfortran/generated/product_i1.c | 12 +++++++++---
libgfortran/generated/product_i16.c | 12 +++++++++---
libgfortran/generated/product_i2.c | 12 +++++++++---
libgfortran/generated/product_i4.c | 12 +++++++++---
libgfortran/generated/product_i8.c | 12 +++++++++---
libgfortran/generated/product_r10.c | 12 +++++++++---
libgfortran/generated/product_r16.c | 12 +++++++++---
libgfortran/generated/product_r17.c | 12 +++++++++---
libgfortran/generated/product_r4.c | 12 +++++++++---
libgfortran/generated/product_r8.c | 12 +++++++++---
libgfortran/generated/sum_c10.c | 12 +++++++++---
libgfortran/generated/sum_c16.c | 12 +++++++++---
libgfortran/generated/sum_c17.c | 12 +++++++++---
libgfortran/generated/sum_c4.c | 12 +++++++++---
libgfortran/generated/sum_c8.c | 12 +++++++++---
libgfortran/generated/sum_i1.c | 12 +++++++++---
libgfortran/generated/sum_i16.c | 12 +++++++++---
libgfortran/generated/sum_i2.c | 12 +++++++++---
libgfortran/generated/sum_i4.c | 12 +++++++++---
libgfortran/generated/sum_i8.c | 12 +++++++++---
libgfortran/generated/sum_r10.c | 12 +++++++++---
libgfortran/generated/sum_r16.c | 12 +++++++++---
libgfortran/generated/sum_r17.c | 12 +++++++++---
libgfortran/generated/sum_r4.c | 12 +++++++++---
libgfortran/generated/sum_r8.c | 12 +++++++++---
libgfortran/m4/ifunction.m4 | 12 +++++++++---
170 files changed, 1470 insertions(+), 490 deletions(-)
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c
index d9dcfab3e74b..5f907ccf7430 100644
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -101,10 +101,12 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siall_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c
index cf205f5f8db7..6ffcbc15b02f 100644
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -101,10 +101,12 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siall_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c
index e25e8d611993..4c00437c7c2b 100644
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -101,10 +101,12 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siall_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c
index 322391bdcc47..ca8925718171 100644
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -101,10 +101,12 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siall_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c
index 7a8ef615d319..6580dee23258 100644
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -101,10 +101,12 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siall_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c
index b0c352b3f193..10a5a542d866 100644
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -101,10 +101,12 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siany_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c
index 039d2fd8ef69..57f04e753cf6 100644
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -101,10 +101,12 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siany_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c
index d72bea419887..6f55fbfe93ba 100644
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -101,10 +101,12 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siany_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c
index 6128452e35c5..b2e74341ac70 100644
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -101,10 +101,12 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siany_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c
index 9e9fc4b2a9c3..7adfd282d55a 100644
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -101,10 +101,12 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siany_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c
index 44e6a13bab32..3d20fa66659c 100644
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -101,10 +101,12 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siparity_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c
index 4e4f0d0ae67b..d145a526b835 100644
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -101,10 +101,12 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siparity_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c
index 7003b12678e6..001ce84b274c 100644
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -101,10 +101,12 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siparity_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c
index 515fad9cde0e..b308000cdc4c 100644
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -101,10 +101,12 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siparity_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c
index 3d395da27e28..e2a5eeb25bf1 100644
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -101,10 +101,12 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ siparity_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c
index 4ac659f0caeb..5ce3e6cb3ecf 100644
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -104,10 +104,12 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c
index ce3cb8981675..93f221c5c86e 100644
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -104,10 +104,12 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c
index e1db7896985e..195e46128dd5 100644
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -104,10 +104,12 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c
index 7bc6157a80b5..04cf74795bcb 100644
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -104,10 +104,12 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_m1.c b/libgfortran/generated/maxloc1_16_m1.c
index 513b6aab5432..95ac2bcec1a3 100644
--- a/libgfortran/generated/maxloc1_16_m1.c
+++ b/libgfortran/generated/maxloc1_16_m1.c
@@ -104,10 +104,12 @@ maxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_m1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_m2.c b/libgfortran/generated/maxloc1_16_m2.c
index 59f87e499187..defc8df2909f 100644
--- a/libgfortran/generated/maxloc1_16_m2.c
+++ b/libgfortran/generated/maxloc1_16_m2.c
@@ -104,10 +104,12 @@ maxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_m2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_m4.c b/libgfortran/generated/maxloc1_16_m4.c
index 8a96a28f4c88..04b625e7aafd 100644
--- a/libgfortran/generated/maxloc1_16_m4.c
+++ b/libgfortran/generated/maxloc1_16_m4.c
@@ -104,10 +104,12 @@ maxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_m4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_m8.c b/libgfortran/generated/maxloc1_16_m8.c
index 14438939ac5a..958502cc004a 100644
--- a/libgfortran/generated/maxloc1_16_m8.c
+++ b/libgfortran/generated/maxloc1_16_m8.c
@@ -104,10 +104,12 @@ maxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_m8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c
index 715f8a1470b4..470c1d175ce2 100644
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -104,10 +104,12 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c
index 74515580b2c6..98653da3fa20 100644
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -104,10 +104,12 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c
index 893e1ddaee40..e906e96299bb 100644
--- a/libgfortran/generated/maxloc1_16_r17.c
+++ b/libgfortran/generated/maxloc1_16_r17.c
@@ -104,10 +104,12 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c
index 4eb7b0ac961f..b09102552039 100644
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -104,10 +104,12 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c
index eed346bb9459..b26b1c88cae4 100644
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -104,10 +104,12 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c
index 031dccdfdd54..bff1439e016e 100644
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -104,10 +104,12 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c
index 8bfe550ba1a2..e3e059d3f744 100644
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -104,10 +104,12 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c
index 78b121e0c474..2865ddda7a1c 100644
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -104,10 +104,12 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_m1.c b/libgfortran/generated/maxloc1_4_m1.c
index 1b8d2d3d4eca..289b4f5fc655 100644
--- a/libgfortran/generated/maxloc1_4_m1.c
+++ b/libgfortran/generated/maxloc1_4_m1.c
@@ -104,10 +104,12 @@ maxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_m1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_m16.c b/libgfortran/generated/maxloc1_4_m16.c
index 9baed689e6f4..0ad101d3c4f8 100644
--- a/libgfortran/generated/maxloc1_4_m16.c
+++ b/libgfortran/generated/maxloc1_4_m16.c
@@ -104,10 +104,12 @@ maxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_m16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_m2.c b/libgfortran/generated/maxloc1_4_m2.c
index 5ae42856d77a..721a92f4f21a 100644
--- a/libgfortran/generated/maxloc1_4_m2.c
+++ b/libgfortran/generated/maxloc1_4_m2.c
@@ -104,10 +104,12 @@ maxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_m2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_m4.c b/libgfortran/generated/maxloc1_4_m4.c
index 2537b7e87ff9..16f043116057 100644
--- a/libgfortran/generated/maxloc1_4_m4.c
+++ b/libgfortran/generated/maxloc1_4_m4.c
@@ -104,10 +104,12 @@ maxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_m4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_m8.c b/libgfortran/generated/maxloc1_4_m8.c
index 05d07ab2afa1..033731112779 100644
--- a/libgfortran/generated/maxloc1_4_m8.c
+++ b/libgfortran/generated/maxloc1_4_m8.c
@@ -104,10 +104,12 @@ maxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_m8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c
index fa1da10f2cfc..3031e1f88607 100644
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -104,10 +104,12 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c
index 943f4fdddb60..50b6e9e571e3 100644
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -104,10 +104,12 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c
index 4070ca55934f..137a1bab1855 100644
--- a/libgfortran/generated/maxloc1_4_r17.c
+++ b/libgfortran/generated/maxloc1_4_r17.c
@@ -104,10 +104,12 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c
index 79ad655bd741..8a9103cab8b4 100644
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -104,10 +104,12 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index 7bc8244fef9a..d514b60d9bcd 100644
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -104,10 +104,12 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c
index 1909e0b7e7d1..ea92f2e9328f 100644
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -104,10 +104,12 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c
index 934b3e87c567..5996cbd4d8be 100644
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -104,10 +104,12 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c
index 7605cd73eb32..a8c043556de2 100644
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -104,10 +104,12 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_m1.c b/libgfortran/generated/maxloc1_8_m1.c
index ee67dff9af57..d419ab94fc42 100644
--- a/libgfortran/generated/maxloc1_8_m1.c
+++ b/libgfortran/generated/maxloc1_8_m1.c
@@ -104,10 +104,12 @@ maxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_m1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_m16.c b/libgfortran/generated/maxloc1_8_m16.c
index e0042e696501..1928ed7389e2 100644
--- a/libgfortran/generated/maxloc1_8_m16.c
+++ b/libgfortran/generated/maxloc1_8_m16.c
@@ -104,10 +104,12 @@ maxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_m16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_m2.c b/libgfortran/generated/maxloc1_8_m2.c
index 21fa06aa900a..d1ec8a38c374 100644
--- a/libgfortran/generated/maxloc1_8_m2.c
+++ b/libgfortran/generated/maxloc1_8_m2.c
@@ -104,10 +104,12 @@ maxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_m2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_m4.c b/libgfortran/generated/maxloc1_8_m4.c
index 746352f12245..83edfc150392 100644
--- a/libgfortran/generated/maxloc1_8_m4.c
+++ b/libgfortran/generated/maxloc1_8_m4.c
@@ -104,10 +104,12 @@ maxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_m4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_m8.c b/libgfortran/generated/maxloc1_8_m8.c
index 448009dfb0b8..64a7df44eeb6 100644
--- a/libgfortran/generated/maxloc1_8_m8.c
+++ b/libgfortran/generated/maxloc1_8_m8.c
@@ -104,10 +104,12 @@ maxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_m8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c
index 4c78faa9fdb4..fbb5bada4044 100644
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -104,10 +104,12 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c
index 72a39004c61f..7d0e18efbddd 100644
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -104,10 +104,12 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c
index 47e49f851bfc..434854c38396 100644
--- a/libgfortran/generated/maxloc1_8_r17.c
+++ b/libgfortran/generated/maxloc1_8_r17.c
@@ -104,10 +104,12 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c
index 015b7699b6f5..b58dc00e5231 100644
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -104,10 +104,12 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c
index 01f7bf90e7fb..57277ef24d7c 100644
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -104,10 +104,12 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -327,8 +329,10 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -533,10 +537,12 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c
index 2fbaaeb810a2..3a882b82a534 100644
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -101,10 +101,12 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c
index 2374585aaf16..a9402baa7baa 100644
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -101,10 +101,12 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c
index 68262f3244a8..f35d599a342c 100644
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -101,10 +101,12 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c
index cdf9c48e0d7b..0fd575d670da 100644
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -101,10 +101,12 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c
index 619682ce1ab7..88ba9be1ad60 100644
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -101,10 +101,12 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_m1.c b/libgfortran/generated/maxval_m1.c
index fcdd545808e4..63bd06b4cad0 100644
--- a/libgfortran/generated/maxval_m1.c
+++ b/libgfortran/generated/maxval_m1.c
@@ -101,10 +101,12 @@ maxval_m1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_m1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_m16.c b/libgfortran/generated/maxval_m16.c
index 5377de3406b6..84766512a77b 100644
--- a/libgfortran/generated/maxval_m16.c
+++ b/libgfortran/generated/maxval_m16.c
@@ -101,10 +101,12 @@ maxval_m16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_m16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_m2.c b/libgfortran/generated/maxval_m2.c
index 17b7f02a8f9b..3525d038abdd 100644
--- a/libgfortran/generated/maxval_m2.c
+++ b/libgfortran/generated/maxval_m2.c
@@ -101,10 +101,12 @@ maxval_m2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_m2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_m4.c b/libgfortran/generated/maxval_m4.c
index 6dbea01000fe..2dc7c959a6fc 100644
--- a/libgfortran/generated/maxval_m4.c
+++ b/libgfortran/generated/maxval_m4.c
@@ -101,10 +101,12 @@ maxval_m4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_m4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_m8.c b/libgfortran/generated/maxval_m8.c
index b1ca20b3e180..5e46d3adeec9 100644
--- a/libgfortran/generated/maxval_m8.c
+++ b/libgfortran/generated/maxval_m8.c
@@ -101,10 +101,12 @@ maxval_m8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_m8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c
index 7070343c9d03..e7067f9b9eae 100644
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -101,10 +101,12 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c
index a5a236993595..8696b7ea20ba 100644
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -101,10 +101,12 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c
index 6f8ee826e0b1..128774f46d2e 100644
--- a/libgfortran/generated/maxval_r17.c
+++ b/libgfortran/generated/maxval_r17.c
@@ -101,10 +101,12 @@ maxval_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c
index 52968cd36b98..467a40a67214 100644
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -101,10 +101,12 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index 0c7515b6fe91..1afa65c6be69 100644
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -101,10 +101,12 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c
index 770111ae8085..6a35eb67d6ea 100644
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -104,10 +104,12 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c
index ac09d4deec05..da2ef754fdb6 100644
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -104,10 +104,12 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c
index 09b2820b106f..eb9a271ffc74 100644
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -104,10 +104,12 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c
index e1d1cccab159..6b7c23ad5521 100644
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -104,10 +104,12 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c
index 9b5fb485aee5..a5d11d2db1cb 100644
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -104,10 +104,12 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_m1.c b/libgfortran/generated/minloc1_16_m1.c
index 37412f8605e9..2114931244f5 100644
--- a/libgfortran/generated/minloc1_16_m1.c
+++ b/libgfortran/generated/minloc1_16_m1.c
@@ -104,10 +104,12 @@ minloc1_16_m1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_m1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_m1 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_m16.c b/libgfortran/generated/minloc1_16_m16.c
index 938a64e1e214..7dd430dffd99 100644
--- a/libgfortran/generated/minloc1_16_m16.c
+++ b/libgfortran/generated/minloc1_16_m16.c
@@ -104,10 +104,12 @@ minloc1_16_m16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_m16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_m16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_m2.c b/libgfortran/generated/minloc1_16_m2.c
index 69b01725cac7..e7dcefe1c2ef 100644
--- a/libgfortran/generated/minloc1_16_m2.c
+++ b/libgfortran/generated/minloc1_16_m2.c
@@ -104,10 +104,12 @@ minloc1_16_m2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_m2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_m2 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_m4.c b/libgfortran/generated/minloc1_16_m4.c
index 609c9d4b4750..84a06939bd03 100644
--- a/libgfortran/generated/minloc1_16_m4.c
+++ b/libgfortran/generated/minloc1_16_m4.c
@@ -104,10 +104,12 @@ minloc1_16_m4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_m4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_m4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_m8.c b/libgfortran/generated/minloc1_16_m8.c
index ef5a06154ab3..8e55526a5920 100644
--- a/libgfortran/generated/minloc1_16_m8.c
+++ b/libgfortran/generated/minloc1_16_m8.c
@@ -104,10 +104,12 @@ minloc1_16_m8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_m8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_m8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c
index a1f9d502a2bb..727f09226e4d 100644
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -104,10 +104,12 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c
index d8eeb459958d..054dc5faf678 100644
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -104,10 +104,12 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c
index 8c693639c480..42d0314083d9 100644
--- a/libgfortran/generated/minloc1_16_r17.c
+++ b/libgfortran/generated/minloc1_16_r17.c
@@ -104,10 +104,12 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c
index 8d525b1cde20..785c5d9786ea 100644
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -104,10 +104,12 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c
index f19d115e3216..a6978dc78530 100644
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -104,10 +104,12 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c
index 122a3fae6d7f..6570f0360822 100644
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -104,10 +104,12 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c
index d81f375daeb1..33974877e6e7 100644
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -104,10 +104,12 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c
index 410082cdbf28..eed6cb1f8560 100644
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -104,10 +104,12 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c
index bb0786dfe3ee..deba41a5b722 100644
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -104,10 +104,12 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c
index 1f7afb8ead77..319b7cec0c1c 100644
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -104,10 +104,12 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_m1.c b/libgfortran/generated/minloc1_4_m1.c
index e215d97b454e..c0747d3af707 100644
--- a/libgfortran/generated/minloc1_4_m1.c
+++ b/libgfortran/generated/minloc1_4_m1.c
@@ -104,10 +104,12 @@ minloc1_4_m1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_m1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_m1 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_m16.c b/libgfortran/generated/minloc1_4_m16.c
index 394d5da986a6..75195fe100ee 100644
--- a/libgfortran/generated/minloc1_4_m16.c
+++ b/libgfortran/generated/minloc1_4_m16.c
@@ -104,10 +104,12 @@ minloc1_4_m16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_m16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_m16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_m2.c b/libgfortran/generated/minloc1_4_m2.c
index 047b2bdfeedb..4c610fdfa337 100644
--- a/libgfortran/generated/minloc1_4_m2.c
+++ b/libgfortran/generated/minloc1_4_m2.c
@@ -104,10 +104,12 @@ minloc1_4_m2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_m2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_m2 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_m4.c b/libgfortran/generated/minloc1_4_m4.c
index 07cc3a3a5901..61e0e996ce2f 100644
--- a/libgfortran/generated/minloc1_4_m4.c
+++ b/libgfortran/generated/minloc1_4_m4.c
@@ -104,10 +104,12 @@ minloc1_4_m4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_m4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_m4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_m8.c b/libgfortran/generated/minloc1_4_m8.c
index 93e14794eb14..1f76196bb3e7 100644
--- a/libgfortran/generated/minloc1_4_m8.c
+++ b/libgfortran/generated/minloc1_4_m8.c
@@ -104,10 +104,12 @@ minloc1_4_m8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_m8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_m8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c
index b46bdb4333df..46ab6b891270 100644
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -104,10 +104,12 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c
index e247116918f5..af2af33a605f 100644
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -104,10 +104,12 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c
index 090e521d4f5b..80cec2c3dca9 100644
--- a/libgfortran/generated/minloc1_4_r17.c
+++ b/libgfortran/generated/minloc1_4_r17.c
@@ -104,10 +104,12 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c
index 5522bf6d2c7c..c0caf728b9d9 100644
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -104,10 +104,12 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c
index 4539095a9e09..156c6eacff58 100644
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -104,10 +104,12 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c
index 867211a33d8d..fccec965c2bc 100644
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -104,10 +104,12 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c
index f0f0ea979dbf..4a9f9d1cd2a2 100644
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -104,10 +104,12 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c
index 9f2532cb526c..c2345e496996 100644
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -104,10 +104,12 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c
index d48537f15d9f..faac37b5eb68 100644
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -104,10 +104,12 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c
index bc331c70d3c4..144926fc645c 100644
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -104,10 +104,12 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_m1.c b/libgfortran/generated/minloc1_8_m1.c
index a8e8c4fad053..e7316e6772a8 100644
--- a/libgfortran/generated/minloc1_8_m1.c
+++ b/libgfortran/generated/minloc1_8_m1.c
@@ -104,10 +104,12 @@ minloc1_8_m1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_m1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_m1 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_m16.c b/libgfortran/generated/minloc1_8_m16.c
index 6e8567b11883..0ef97391d604 100644
--- a/libgfortran/generated/minloc1_8_m16.c
+++ b/libgfortran/generated/minloc1_8_m16.c
@@ -104,10 +104,12 @@ minloc1_8_m16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_m16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_m16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_m2.c b/libgfortran/generated/minloc1_8_m2.c
index 73a30f8c42c7..d01d9dfee6ea 100644
--- a/libgfortran/generated/minloc1_8_m2.c
+++ b/libgfortran/generated/minloc1_8_m2.c
@@ -104,10 +104,12 @@ minloc1_8_m2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_m2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_m2 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_m4.c b/libgfortran/generated/minloc1_8_m4.c
index ccb2bfe77e25..aafbf31c0952 100644
--- a/libgfortran/generated/minloc1_8_m4.c
+++ b/libgfortran/generated/minloc1_8_m4.c
@@ -104,10 +104,12 @@ minloc1_8_m4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_m4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_m4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_m8.c b/libgfortran/generated/minloc1_8_m8.c
index 5a1fd68c10f5..52fa266d26a8 100644
--- a/libgfortran/generated/minloc1_8_m8.c
+++ b/libgfortran/generated/minloc1_8_m8.c
@@ -104,10 +104,12 @@ minloc1_8_m8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_m8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_m8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c
index e9946d72675e..6d3c6dd3910b 100644
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -104,10 +104,12 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c
index b0647c35121d..0f3c2932b896 100644
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -104,10 +104,12 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c
index 6b3bcf7b87c5..e1f26e985e92 100644
--- a/libgfortran/generated/minloc1_8_r17.c
+++ b/libgfortran/generated/minloc1_8_r17.c
@@ -104,10 +104,12 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c
index e8f7b150aee7..452c5aefeb01 100644
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -104,10 +104,12 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index df7efc3715b0..8e642f59c080 100644
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -104,10 +104,12 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -339,8 +341,10 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -545,10 +549,12 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c
index 1d4d96f3de3a..c263826573da 100644
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -101,10 +101,12 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_i1 (gfc_array_i1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c
index b01ab69c66ff..4b403e2fc952 100644
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -101,10 +101,12 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_i16 (gfc_array_i16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c
index d57324ae8ea6..152e97775a9b 100644
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -101,10 +101,12 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_i2 (gfc_array_i2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c
index f4adf9db2144..6a30121837f8 100644
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -101,10 +101,12 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_i4 (gfc_array_i4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index 9ba053504e3b..1b3adee74bda 100644
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -101,10 +101,12 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_i8 (gfc_array_i8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_INTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_INTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_m1.c b/libgfortran/generated/minval_m1.c
index 49e89659f947..64ef3212b57b 100644
--- a/libgfortran/generated/minval_m1.c
+++ b/libgfortran/generated/minval_m1.c
@@ -101,10 +101,12 @@ minval_m1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_m1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_m1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_m16.c b/libgfortran/generated/minval_m16.c
index 8bda22214bfc..fcb31d2db720 100644
--- a/libgfortran/generated/minval_m16.c
+++ b/libgfortran/generated/minval_m16.c
@@ -101,10 +101,12 @@ minval_m16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_m16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_m16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_m2.c b/libgfortran/generated/minval_m2.c
index d1ecc5973a19..fbfbb550b4af 100644
--- a/libgfortran/generated/minval_m2.c
+++ b/libgfortran/generated/minval_m2.c
@@ -101,10 +101,12 @@ minval_m2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_m2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_m2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_m4.c b/libgfortran/generated/minval_m4.c
index c30ea202ba43..4b80b07bf46d 100644
--- a/libgfortran/generated/minval_m4.c
+++ b/libgfortran/generated/minval_m4.c
@@ -101,10 +101,12 @@ minval_m4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_m4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_m4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_m8.c b/libgfortran/generated/minval_m8.c
index 0d312e51c290..0bf2089d9e07 100644
--- a/libgfortran/generated/minval_m8.c
+++ b/libgfortran/generated/minval_m8.c
@@ -101,10 +101,12 @@ minval_m8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_m8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_m8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c
index 999f0797ec54..dbf0308e2832 100644
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -101,10 +101,12 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c
index efdaff30cae4..62ed212011fb 100644
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -101,10 +101,12 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c
index 5377b0f7811d..2e6b8b19202a 100644
--- a/libgfortran/generated/minval_r17.c
+++ b/libgfortran/generated/minval_r17.c
@@ -101,10 +101,12 @@ minval_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c
index 9d0cd2ec6b68..aaf2b5ad14ed 100644
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -101,10 +101,12 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c
index 7b173e71166e..5ea9bfc728cb 100644
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -101,10 +101,12 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -313,8 +315,10 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -502,10 +506,12 @@ sminval_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c
index 50d9639684e2..6c355b9a5085 100644
--- a/libgfortran/generated/norm2_r10.c
+++ b/libgfortran/generated/norm2_r10.c
@@ -104,10 +104,12 @@ norm2_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c
index 892fa373d9b5..0006ce75501d 100644
--- a/libgfortran/generated/norm2_r16.c
+++ b/libgfortran/generated/norm2_r16.c
@@ -112,10 +112,12 @@ norm2_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/norm2_r17.c b/libgfortran/generated/norm2_r17.c
index a5a80b01fbeb..7c10c96241bf 100644
--- a/libgfortran/generated/norm2_r17.c
+++ b/libgfortran/generated/norm2_r17.c
@@ -110,10 +110,12 @@ norm2_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c
index 73c939a41ab9..9de277a37849 100644
--- a/libgfortran/generated/norm2_r4.c
+++ b/libgfortran/generated/norm2_r4.c
@@ -104,10 +104,12 @@ norm2_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c
index 96e95e7dd1bf..15f3533ca57d 100644
--- a/libgfortran/generated/norm2_r8.c
+++ b/libgfortran/generated/norm2_r8.c
@@ -104,10 +104,12 @@ norm2_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c
index 7cb1642b4876..ff9b18b6c9d6 100644
--- a/libgfortran/generated/parity_l1.c
+++ b/libgfortran/generated/parity_l1.c
@@ -101,10 +101,12 @@ parity_l1 (gfc_array_l1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_LOGICAL_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_LOGICAL_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c
index f4cc67f5f354..1cce9af94e7e 100644
--- a/libgfortran/generated/parity_l16.c
+++ b/libgfortran/generated/parity_l16.c
@@ -101,10 +101,12 @@ parity_l16 (gfc_array_l16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_LOGICAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_LOGICAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c
index da82b6ad0cb0..b0321c996f49 100644
--- a/libgfortran/generated/parity_l2.c
+++ b/libgfortran/generated/parity_l2.c
@@ -101,10 +101,12 @@ parity_l2 (gfc_array_l2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_LOGICAL_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_LOGICAL_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c
index 59c9d1be8444..41a6afb2e913 100644
--- a/libgfortran/generated/parity_l4.c
+++ b/libgfortran/generated/parity_l4.c
@@ -101,10 +101,12 @@ parity_l4 (gfc_array_l4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_LOGICAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_LOGICAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c
index 7db566738a23..04396c2fe465 100644
--- a/libgfortran/generated/parity_l8.c
+++ b/libgfortran/generated/parity_l8.c
@@ -101,10 +101,12 @@ parity_l8 (gfc_array_l8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_LOGICAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_LOGICAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c
index efe37c8106ff..f8530ac2cc2e 100644
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -101,10 +101,12 @@ product_c10 (gfc_array_c10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_10);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c
index 005496a09607..b3f9d1423867 100644
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -101,10 +101,12 @@ product_c16 (gfc_array_c16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_c17.c b/libgfortran/generated/product_c17.c
index f7401ab1bdfa..7708d2fbdaaf 100644
--- a/libgfortran/generated/product_c17.c
+++ b/libgfortran/generated/product_c17.c
@@ -101,10 +101,12 @@ product_c17 (gfc_array_c17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_c17 (gfc_array_c17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_17);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_c17 (gfc_array_c17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c
index 39d920b738e0..f4ff893dd0ed 100644
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -101,10 +101,12 @@ product_c4 (gfc_array_c4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c
index 7bb37343e9c3..0de45db1da08 100644
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -101,10 +101,12 @@ product_c8 (gfc_array_c8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c
index 669e695fbc26..3ffcaab31239 100644
--- a/libgfortran/generated/product_i1.c
+++ b/libgfortran/generated/product_i1.c
@@ -101,10 +101,12 @@ product_i1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_i1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_i1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c
index 234caf43e8d7..36f2de7b4a65 100644
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -101,10 +101,12 @@ product_i16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_i16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_i16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c
index e777e447c056..48c957cf3907 100644
--- a/libgfortran/generated/product_i2.c
+++ b/libgfortran/generated/product_i2.c
@@ -101,10 +101,12 @@ product_i2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_i2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_i2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c
index 4482870c31c6..b7a09b17e263 100644
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -101,10 +101,12 @@ product_i4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_i4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_i4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c
index b5ad9e693bda..85340dbfdfe5 100644
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -101,10 +101,12 @@ product_i8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_i8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_i8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c
index 56b2f38d8396..2622980574e1 100644
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -101,10 +101,12 @@ product_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c
index 341cb5cbe7be..ece6498a060f 100644
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -101,10 +101,12 @@ product_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_r17.c b/libgfortran/generated/product_r17.c
index 61bd63308753..b26a0bdac8cc 100644
--- a/libgfortran/generated/product_r17.c
+++ b/libgfortran/generated/product_r17.c
@@ -101,10 +101,12 @@ product_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c
index d3d06e6cfdb4..c595913666b8 100644
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -101,10 +101,12 @@ product_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c
index 8d8e4d5e621d..f799f6c5963e 100644
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -101,10 +101,12 @@ product_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c
index 7491f4f7c515..851fec09dc73 100644
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -101,10 +101,12 @@ sum_c10 (gfc_array_c10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_c10 (gfc_array_c10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_10);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_c10 (gfc_array_c10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c
index 059038bb439f..dd5856d5c5c7 100644
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -101,10 +101,12 @@ sum_c16 (gfc_array_c16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_c16 (gfc_array_c16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_c16 (gfc_array_c16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c
index a257c6c1654c..9bb24fafbfb5 100644
--- a/libgfortran/generated/sum_c17.c
+++ b/libgfortran/generated/sum_c17.c
@@ -101,10 +101,12 @@ sum_c17 (gfc_array_c17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_c17 (gfc_array_c17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_17);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_c17 (gfc_array_c17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c
index 39e63733d82f..552fa6acc33d 100644
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -101,10 +101,12 @@ sum_c4 (gfc_array_c4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_c4 (gfc_array_c4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_c4 (gfc_array_c4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c
index dd04aeb3b6dc..e7f7617f01dd 100644
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -101,10 +101,12 @@ sum_c8 (gfc_array_c8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_c8 (gfc_array_c8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_c8 (gfc_array_c8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_COMPLEX_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_COMPLEX_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c
index 594846c57942..b7393ea67c9c 100644
--- a/libgfortran/generated/sum_i1.c
+++ b/libgfortran/generated/sum_i1.c
@@ -101,10 +101,12 @@ sum_i1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_i1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_i1 (gfc_array_m1 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_1);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_1);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c
index f60b42317945..fe01ae26ee8e 100644
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -101,10 +101,12 @@ sum_i16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_i16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_i16 (gfc_array_m16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c
index e9a1ba0c9942..5083baac3b15 100644
--- a/libgfortran/generated/sum_i2.c
+++ b/libgfortran/generated/sum_i2.c
@@ -101,10 +101,12 @@ sum_i2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_i2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_i2 (gfc_array_m2 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_2);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_2);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_2));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c
index 18da46bf0086..c63602240204 100644
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -101,10 +101,12 @@ sum_i4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_i4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_i4 (gfc_array_m4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c
index 4b44c776b880..7f89bebcbeea 100644
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -101,10 +101,12 @@ sum_i8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_i8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_i8 (gfc_array_m8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_UINTEGER_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_UINTEGER_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c
index 44d967549421..1f1cd89f7703 100644
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -101,10 +101,12 @@ sum_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_r10 (gfc_array_r10 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_10);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_10);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c
index 00c60b008e41..45e21555f701 100644
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -101,10 +101,12 @@ sum_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_r16 (gfc_array_r16 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_16);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_16);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_r17.c b/libgfortran/generated/sum_r17.c
index 928d933485e6..757fa55948eb 100644
--- a/libgfortran/generated/sum_r17.c
+++ b/libgfortran/generated/sum_r17.c
@@ -101,10 +101,12 @@ sum_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_r17 (gfc_array_r17 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_17);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_17);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c
index 138a2d48bd93..f7ae8ee8df8a 100644
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -101,10 +101,12 @@ sum_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_r4 (gfc_array_r4 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_4);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_4);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c
index b311247ea315..5c0ed7902628 100644
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -101,10 +101,12 @@ sum_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -297,8 +299,10 @@ msum_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -456,10 +460,12 @@ ssum_r8 (gfc_array_r8 * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof (GFC_REAL_8);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof (GFC_REAL_8);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
index ee25b0d2b88c..33f2af54650a 100644
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -91,10 +91,12 @@ void
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof ('rtype_name`);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof ('rtype_name`);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof ('rtype_name`));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -287,8 +289,10 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof ('rtype_name`);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof ('rtype_name`);
- retarray->base_addr = xmallocarray (alloc_size, sizeof ('rtype_name`));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
@@ -445,10 +449,12 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray,
retarray->offset = 0;
retarray->dtype.rank = rank;
+ GFC_DESCRIPTOR_SIZE (retarray) = sizeof ('rtype_name`);
+ GFC_DESCRIPTOR_SPAN (retarray) = sizeof ('rtype_name`);
alloc_size = GFC_DESCRIPTOR_SPACING(retarray,rank-1) * extent[rank-1];
- retarray->base_addr = xmallocarray (alloc_size, sizeof ('rtype_name`));
+ retarray->base_addr = xmalloc (alloc_size);
if (alloc_size == 0)
return;
}
More information about the Gcc-cvs
mailing list