Index: gcc/libgfortran/generated/in_unpack_r10.c |
diff --git a/gcc/libgfortran/generated/in_unpack_r10.c b/gcc/libgfortran/generated/in_unpack_r10.c |
index 15c46b2d07d9c321719dd500367b98d1353c6b66..aa5f08eb25bacd5451b0ad024e945e6c140c8855 100644 |
--- a/gcc/libgfortran/generated/in_unpack_r10.c |
+++ b/gcc/libgfortran/generated/in_unpack_r10.c |
@@ -52,8 +52,8 @@ internal_unpack_r10 (gfc_array_r10 * d, const GFC_REAL_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; |