diff options
Diffstat (limited to 'libgfortran/generated/minloc0_8_r16.c')
| -rw-r--r-- | libgfortran/generated/minloc0_8_r16.c | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c index 3b39bfd7df6..e0e49d52b2f 100644 --- a/libgfortran/generated/minloc0_8_r16.c +++ b/libgfortran/generated/minloc0_8_r16.c @@ -55,8 +55,9 @@ minloc0_8_r16 (gfc_array_i8 * 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_8)); + retarray->elem_len = retarray->elem_len; + retarray->type = retarray->type; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -67,11 +68,11 @@ minloc0_8_r16 (gfc_array_i8 * const restrict retarray, "MINLOC"); } - 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 @@ mminloc0_8_r16 (gfc_array_i8 * 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_8)); + retarray->elem_len = retarray->elem_len; + retarray->type = retarray->type; retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -213,7 +215,7 @@ mminloc0_8_r16 (gfc_array_i8 * const restrict retarray, } } - mask_kind = GFC_DESCRIPTOR_SIZE (mask); + mask_kind = GFC_DESCRIPTOR_ELEM_LEN (mask); mbase = mask->base_addr; @@ -226,12 +228,12 @@ mminloc0_8_r16 (gfc_array_i8 * 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 @@ sminloc0_8_r16 (gfc_array_i8 * 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_8)); retarray->offset = 0; retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_8)); } @@ -375,7 +376,7 @@ sminloc0_8_r16 (gfc_array_i8 * const restrict retarray, "MINLOC"); } - 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 ; |