Index: gcc/libgfortran/generated/in_pack_r8.c |
diff --git a/gcc/libgfortran/generated/in_pack_r8.c b/gcc/libgfortran/generated/in_pack_r8.c |
index 09a25445f32c28d26fe0a2a9c81e23d8963276ad..1453f86b582530301699c95f2d6dbcc21b937e5c 100644 |
--- a/gcc/libgfortran/generated/in_pack_r8.c |
+++ b/gcc/libgfortran/generated/in_pack_r8.c |
@@ -57,8 +57,8 @@ internal_pack_r8 (gfc_array_r8 * source) |
for (n = 0; n < dim; n++) |
{ |
count[n] = 0; |
- stride[n] = source->dim[n].stride; |
- extent[n] = source->dim[n].ubound + 1 - source->dim[n].lbound; |
+ stride[n] = GFC_DESCRIPTOR_STRIDE(source,n); |
+ extent[n] = GFC_DESCRIPTOR_EXTENT(source,n); |
if (extent[n] <= 0) |
{ |
/* Do nothing. */ |