diff options
Diffstat (limited to 'libgfortran/intrinsics/move_alloc.c')
| -rw-r--r-- | libgfortran/intrinsics/move_alloc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/intrinsics/move_alloc.c b/libgfortran/intrinsics/move_alloc.c index 7b489ade4c7..a27de4e7c60 100644 --- a/libgfortran/intrinsics/move_alloc.c +++ b/libgfortran/intrinsics/move_alloc.c @@ -1,5 +1,5 @@ /* Generic implementation of the MOVE_ALLOC intrinsic - Copyright (C) 2006, 2007, 2009, 2011 Free Software Foundation, Inc. + Copyright (C) 2006, 2007, 2009, 2011, 2012 Free Software Foundation, Inc. Contributed by Paul Thomas This file is part of the GNU Fortran runtime library (libgfortran). @@ -35,7 +35,7 @@ move_alloc (gfc_array_char * from, gfc_array_char * to) { int i; - free (to->data); + free (to->base_addr); for (i = 0; i < GFC_DESCRIPTOR_RANK (from); i++) { @@ -48,8 +48,8 @@ move_alloc (gfc_array_char * from, gfc_array_char * to) to->offset = from->offset; to->dtype = from->dtype; - to->data = from->data; - from->data = NULL; + to->base_addr = from->base_addr; + from->base_addr = NULL; } extern void move_alloc_c (gfc_array_char *, GFC_INTEGER_4, |