[gcc(refs/users/mikael/heads/refactor_descriptor_v203.05)] Correction coarray/ptr_comp_3
Mikael Morin via Gcc-cvs <[email protected]>
| Newsgroups | gmane.comp.gcc.cvs |
|---|---|
| Message-ID | <[email protected]> |
https://gcc.gnu.org/g:ab3b68ef2907544b080ed35ff4394e44075a6db8 commit ab3b68ef2907544b080ed35ff4394e44075a6db8 Author: Mikael Morin <[email protected]> Date: Wed Jul 15 17:19:49 2026 +0200 Correction coarray/ptr_comp_3 Diff: --- gcc/fortran/trans-intrinsic.cc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc index 5e3681da4675..01562cf73c8a 100644 --- a/gcc/fortran/trans-intrinsic.cc +++ b/gcc/fortran/trans-intrinsic.cc @@ -1317,8 +1317,7 @@ gfc_conv_intrinsic_caf_get (gfc_se *se, gfc_expr *expr, tree lhs, opt_dest_desc = gfc_build_addr_expr (NULL_TREE, opt_dest_desc); if (may_realloc) { - tmp = gfc_conv_descriptor_data_get (res_var); - tmp = gfc_deallocate_with_status (tmp, NULL_TREE, NULL_TREE, + tmp = gfc_deallocate_with_status (res_var, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE, true, NULL, GFC_CAF_COARRAY_NOCOARRAY); gfc_add_expr_to_block (&se->post, tmp);