https://gcc.gnu.org/g:0837b48e20c109a152bfb874e9a046f3a024b3a0
commit 0837b48e20c109a152bfb874e9a046f3a024b3a0 Author: Mikael Morin <[email protected]> Date: Thu Oct 15 13:10:17 2026 +0200 Correction partielle optional_absent_12 Diff: --- gcc/fortran/trans-expr.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 92fb7779d05a..3f4a62a2f70d 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -5925,7 +5925,7 @@ class_array_fcn: tree ptr = gfc_get_symbol_decl (sym); if (sym->ts.type == BT_CLASS) ptr = gfc_class_data_get (ptr); - if (POINTER_TYPE_P (ptr) + if (POINTER_TYPE_P (TREE_TYPE (ptr)) && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (TREE_TYPE (ptr)))) ptr = build_fold_indirect_ref_loc (input_location, ptr); if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (ptr)))
