https://gcc.gnu.org/g:48636277028b00c758cfb0e239c14ab0c5d23b66
commit 48636277028b00c758cfb0e239c14ab0c5d23b66 Author: Mikael Morin <[email protected]> Date: Sun Oct 25 18:29:34 2026 +0100 Ajout condition supplémentaire cas non-CLASS Diff: --- gcc/fortran/symbol.cc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/symbol.cc b/gcc/fortran/symbol.cc index 5adaba1e734c..653ad06f28bc 100644 --- a/gcc/fortran/symbol.cc +++ b/gcc/fortran/symbol.cc @@ -5726,7 +5726,9 @@ gfc_dummy_requires_direct_arg (gfc_symbol *sym) && CLASS_DATA (sym)->as && (CLASS_DATA (sym)->as->type == AS_ASSUMED_SHAPE || CLASS_DATA (sym)->as->type == AS_ASSUMED_RANK)) - || (sym->attr.dimension + || (!(sym->ts.type == BT_CLASS + && sym->ts.u.derived->attr.is_class) + && sym->attr.dimension && !sym->attr.allocatable && sym->as && (sym->as->type == AS_ASSUMED_SHAPE
