https://gcc.gnu.org/g:a20f5cc46fa09729ed4e43401cf50ddc80a2810f
commit a20f5cc46fa09729ed4e43401cf50ddc80a2810f Author: Mikael Morin <[email protected]> Date: Wed Jul 15 17:29:38 2026 +0200 Correction move_alloc_1 Diff: --- gcc/fortran/trans-intrinsic.cc | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc index e622111e49fc..01562cf73c8a 100644 --- a/gcc/fortran/trans-intrinsic.cc +++ b/gcc/fortran/trans-intrinsic.cc @@ -13598,9 +13598,7 @@ conv_intrinsic_move_alloc (gfc_code *code) gfc_add_modify_loc (input_location, &block, to_se.expr, from_se.expr); /* Set "from" to NULL. */ - tmp = gfc_conv_descriptor_data_get (from_se.expr); - gfc_add_modify_loc (input_location, &block, tmp, - fold_convert (TREE_TYPE (tmp), null_pointer_node)); + gfc_conv_descriptor_data_set (&block, from_se.expr, null_pointer_node); if (coarray && flag_coarray == GFC_FCOARRAY_LIB) {
