| Index: gcc/libgfortran/generated/in_unpack_i16.c
|
| diff --git a/gcc/libgfortran/generated/in_unpack_i16.c b/gcc/libgfortran/generated/in_unpack_i16.c
|
| index 04b2248876fec8f90ce056dc2480b1606bbc001b..c7199207e2ab4eec0e5d6238942c7a64229ce122 100644
|
| --- a/gcc/libgfortran/generated/in_unpack_i16.c
|
| +++ b/gcc/libgfortran/generated/in_unpack_i16.c
|
| @@ -52,8 +52,8 @@ internal_unpack_16 (gfc_array_i16 * d, const GFC_INTEGER_16 * 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;
|
|
|
|
|