| Index: gcc/libgfortran/generated/in_unpack_c16.c
|
| diff --git a/gcc/libgfortran/generated/in_unpack_c16.c b/gcc/libgfortran/generated/in_unpack_c16.c
|
| index 1b783bd725aab92a25edcb314ae885212434cf70..1d09a800690d911d4668452d3360d904752a2df8 100644
|
| --- a/gcc/libgfortran/generated/in_unpack_c16.c
|
| +++ b/gcc/libgfortran/generated/in_unpack_c16.c
|
| @@ -52,8 +52,8 @@ internal_unpack_c16 (gfc_array_c16 * d, const GFC_COMPLEX_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;
|
|
|
|
|