= internal_malloc_size (sizeof (GFC_INTEGER_4)
* retarray->dim[rank-1].stride
* extent[rank-1]);
- retarray->base = 0;
+ retarray->offset = 0;
retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank;
}
else
= internal_malloc_size (sizeof (GFC_INTEGER_4)
* retarray->dim[rank-1].stride
* extent[rank-1]);
- retarray->base = 0;
+ retarray->offset = 0;
retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank;
}
else