diff options
Diffstat (limited to 'libgfortran/generated/maxloc0_16_r10.c')
| -rw-r--r-- | libgfortran/generated/maxloc0_16_r10.c | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c index 03560f711f0..089e751dc8a 100644 --- a/libgfortran/generated/maxloc0_16_r10.c +++ b/libgfortran/generated/maxloc0_16_r10.c @@ -55,8 +55,9 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { - GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; + GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_16)); + retarray->elem_len = retarray->elem_len; + retarray->type = retarray->type; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -67,11 +68,11 @@ maxloc0_16_r10 (gfc_array_i16 * const restrict retarray, "MAXLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(retarray,0); dest = retarray->base_addr; for (n = 0; n < rank; n++) { - sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n); + sstride[n] = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(array,n); extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); count[n] = 0; if (extent[n] <= 0) @@ -196,8 +197,9 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { - GFC_DIMENSION_SET(retarray->dim[0], 0, rank - 1, 1); - retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; + GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_16)); + retarray->elem_len = retarray->elem_len; + retarray->type = retarray->type; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -213,7 +215,7 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, } } - mask_kind = GFC_DESCRIPTOR_SIZE (mask); + mask_kind = GFC_DESCRIPTOR_ELEM_LEN (mask); mbase = mask->base_addr; @@ -226,12 +228,12 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, else runtime_error ("Funny sized logical array"); - dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(retarray,0); dest = retarray->base_addr; for (n = 0; n < rank; n++) { - sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n); - mstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(mask,n); + sstride[n] = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(array,n); + mstride[n] = GFC_DESCRIPTOR_SM(mask,n); extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); count[n] = 0; if (extent[n] <= 0) @@ -364,8 +366,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, if (retarray->base_addr == NULL) { - GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1); - retarray->dtype = (retarray->dtype & ~GFC_DTYPE_RANK_MASK) | 1; + GFC_DIMENSION_SET (retarray->dim[0], 0, rank, sizeof (GFC_INTEGER_16)); retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_16)); } @@ -375,7 +376,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray, "MAXLOC"); } - dstride = GFC_DESCRIPTOR_STRIDE(retarray,0); + dstride = GFC_DESCRIPTOR_STRIDE_TYPEKNOWN(retarray,0); dest = retarray->base_addr; for (n = 0; n<rank; n++) dest[n * dstride] = 0 ; |