summaryrefslogtreecommitdiff
path: root/libgfortran/generated/maxloc0_16_i1.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/maxloc0_16_i1.c')
-rw-r--r--libgfortran/generated/maxloc0_16_i1.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/generated/maxloc0_16_i1.c b/libgfortran/generated/maxloc0_16_i1.c
index 3bb69059e55..ac09f143541 100644
--- a/libgfortran/generated/maxloc0_16_i1.c
+++ b/libgfortran/generated/maxloc0_16_i1.c
@@ -54,7 +54,7 @@ maxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
if (retarray->base_addr == NULL)
{
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
- GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+ retarray->dtype.rank = 1;
retarray->offset = 0;
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
}
@@ -205,7 +205,7 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
if (retarray->base_addr == NULL)
{
GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1);
- GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+ retarray->dtype.rank = 1;
retarray->offset = 0;
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
}
@@ -383,7 +383,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
if (retarray->base_addr == NULL)
{
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
- GFC_DTYPE_COPY_SETRANK(retarray,retarray,1);
+ retarray->dtype.rank = 1;
retarray->offset = 0;
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16));
}