[gcc(refs/users/mikael/heads/refactor_descriptor_v203 .05)] Correction régression alloc_comp_scalar_ 1.f90
Mikael Morin via Gcc-cvs <[email protected]>
| Newsgroups | gmane.comp.gcc.cvs |
|---|---|
| Message-ID | <[email protected]> |
https://gcc.gnu.org/g:49aa52129fcc1fcedabfaa84d94a9775d8d71d7b commit 49aa52129fcc1fcedabfaa84d94a9775d8d71d7b Author: Mikael Morin <[email protected]> Date: Wed Jul 15 17:46:58 2026 +0200 Correction régression alloc_comp_scalar_1.f90 Diff: --- gcc/fortran/trans-expr.cc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 1083ea3fbbd2..b820e532e973 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -9099,8 +9099,7 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, gfc_add_expr_to_block (&se->pre, tmp); /* Finally free the temporary's data field. */ - tmp = gfc_conv_descriptor_data_get (tmp2); - tmp = gfc_deallocate_with_status (tmp, NULL_TREE, NULL_TREE, + tmp = gfc_deallocate_with_status (tmp2, NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE, true, NULL, GFC_CAF_COARRAY_NOCOARRAY); gfc_add_expr_to_block (&se->pre, tmp);