diff options
Diffstat (limited to 'libgfortran/intrinsics/move_alloc.c')
| -rw-r--r-- | libgfortran/intrinsics/move_alloc.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libgfortran/intrinsics/move_alloc.c b/libgfortran/intrinsics/move_alloc.c index 527aa6f250d..9b5497c9bc7 100644 --- a/libgfortran/intrinsics/move_alloc.c +++ b/libgfortran/intrinsics/move_alloc.c @@ -42,11 +42,11 @@ move_alloc (gfc_array_char * from, gfc_array_char * to) for (i = 0; i < GFC_DESCRIPTOR_RANK (from); i++) { - to->dim[i].lbound = from->dim[i].lbound; - to->dim[i].ubound = from->dim[i].ubound; - to->dim[i].stride = from->dim[i].stride; - from->dim[i].stride = 0; - from->dim[i].ubound = from->dim[i].lbound; + GFC_DIMENSION_SET(to->dim[i],GFC_DESCRIPTOR_LBOUND(from,i), + GFC_DESCRIPTOR_UBOUND(from,i), + GFC_DESCRIPTOR_STRIDE(from,i)); + GFC_DIMENSION_SET(from->dim[i],GFC_DESCRIPTOR_LBOUND(from,i), + GFC_DESCRIPTOR_LBOUND(from,i), 0); } to->offset = from->offset; |