[gcc(refs/users/mikael/heads/refactor_descriptor_v203.04)] Correction ptr_comp_3
Mikael Morin via Gcc-cvs <[email protected]>
| Newsgroups | gmane.comp.gcc.cvs |
|---|---|
| Message-ID | <[email protected]> |
https://gcc.gnu.org/g:54a4ddc715b4e7397b81c283f5e26bb385e646fa commit 54a4ddc715b4e7397b81c283f5e26bb385e646fa Author: Mikael Morin <[email protected]> Date: Wed Jul 15 17:19:49 2026 +0200 Correction 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 bb0499ad7b3c..e622111e49fc 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);