| Index: gcc/libgfortran/generated/in_unpack_c10.c
|
| diff --git a/gcc/libgfortran/generated/in_unpack_c10.c b/gcc/libgfortran/generated/in_unpack_c10.c
|
| index 46ce8d446fd9a50aaf7804e6c515b13b59273255..bcac6e7a5d4710ada62bf02378a28698530de77b 100644
|
| --- a/gcc/libgfortran/generated/in_unpack_c10.c
|
| +++ b/gcc/libgfortran/generated/in_unpack_c10.c
|
| @@ -52,8 +52,8 @@ internal_unpack_c10 (gfc_array_c10 * d, const GFC_COMPLEX_10 * 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;
|
|
|
|
|