https://gcc.gnu.org/g:97d38da0c4a48f9e1fbf3fc460650d0475e9fd86
commit 97d38da0c4a48f9e1fbf3fc460650d0475e9fd86 Author: Mikael Morin <[email protected]> Date: Thu Sep 17 18:50:41 2026 +0200 Correction vérification pointeur Diff: --- gcc/fortran/trans-types.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc index 68661d165dab..3675f0932535 100644 --- a/gcc/fortran/trans-types.cc +++ b/gcc/fortran/trans-types.cc @@ -3168,8 +3168,8 @@ gfc_get_derived_type (gfc_symbol * derived, int codimen) c->backend_decl = field; if ((c->attr.dimension || c->attr.codimension) - && ((c->ts.type == BT_CLASS && c->attr.class_pointer) - || (c->ts.type != BT_CLASS && c->attr.pointer))) + && ((derived->attr.is_class && c->attr.class_pointer) + || (!derived->attr.is_class && c->attr.pointer))) GFC_DECL_PTR_ARRAY_P (c->backend_decl) = 1; }
