https://gcc.gnu.org/g:0b7574496ac4fc0076445b59bd16d7088135255f
commit 0b7574496ac4fc0076445b59bd16d7088135255f Author: Mikael Morin <[email protected]> Date: Mon Aug 10 09:32:12 2026 +0200 Sauvegarde essai suppression code Diff: --- gcc/fortran/trans-array.cc | 4 ---- 1 file changed, 4 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 3d3a373bf04a..d468379a4dea 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7629,10 +7629,6 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, tree desc, tree offset, tmp = build_array_ref (desc, offset, NULL, NULL); - /* If there is a saved descriptor, use it. */ - if (POINTER_TYPE_P (TREE_TYPE (tmp)) && saved_desc_pointer_array (desc)) - tmp = build_fold_indirect_ref_loc (input_location, tmp); - /* Offset the data pointer for pointer assignments from arrays with subreferences; e.g. my_integer => my_type(:)%integer_component. */ if (subref)
