https://gcc.gnu.org/g:6d129054d14aaed3c8d5e217c7d615b22bcfd48c
commit 6d129054d14aaed3c8d5e217c7d615b22bcfd48c Author: Mikael Morin <[email protected]> Date: Thu Sep 17 21:24:42 2026 +0200 Essai correction select_type_53 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 2605c641151a..784a497bf5a8 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7782,10 +7782,6 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, tree desc, tree offset, to reference an element. */ tmp = build_array_ref (desc, offset, NULL, NULL); - /* A spanned character element is referenced by a pointer. */ - if (POINTER_TYPE_P (TREE_TYPE (tmp)) && is_span_addressed_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)
