[gcc(refs/users/mikael/heads/refactor_descriptor_v203 .04)] 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:b237667d9e775ad2765f9559d477ddf4e2a1a41f commit b237667d9e775ad2765f9559d477ddf4e2a1a41f 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 1bf8eeca7bfe..8e71ae3b51df 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -9101,8 +9101,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);