| Index: gcc/libgfortran/generated/in_unpack_i8.c
|
| diff --git a/gcc/libgfortran/generated/in_unpack_i8.c b/gcc/libgfortran/generated/in_unpack_i8.c
|
| index 7ea8b94c708ad17bfc4ccc30f6e4a644b0f83970..347f0116cfc9338b93e7a22097f638ca3dcece2d 100644
|
| --- a/gcc/libgfortran/generated/in_unpack_i8.c
|
| +++ b/gcc/libgfortran/generated/in_unpack_i8.c
|
| @@ -52,8 +52,8 @@ internal_unpack_8 (gfc_array_i8 * d, const GFC_INTEGER_8 * src)
|
| for (n = 0; n < dim; n++)
|
| {
|
| count[n] = 0;
|
| - stride[n] = d->dim[n].stride;
|
| - extent[n] = d->dim[n].ubound + 1 - d->dim[n].lbound;
|
| + stride[n] = GFC_DESCRIPTOR_STRIDE(d,n);
|
| + extent[n] = GFC_DESCRIPTOR_EXTENT(d,n);
|
| if (extent[n] <= 0)
|
| return;
|
|
|
|
|