diff options
Diffstat (limited to 'libgfortran/intrinsics/move_alloc.c')
| -rw-r--r-- | libgfortran/intrinsics/move_alloc.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libgfortran/intrinsics/move_alloc.c b/libgfortran/intrinsics/move_alloc.c index 9b5497c9bc7..f76c20c7b6d 100644 --- a/libgfortran/intrinsics/move_alloc.c +++ b/libgfortran/intrinsics/move_alloc.c @@ -37,8 +37,7 @@ move_alloc (gfc_array_char * from, gfc_array_char * to) { int i; - if (to->data) - free (to->data); + free (to->data); for (i = 0; i < GFC_DESCRIPTOR_RANK (from); i++) { |
