Index: flang/lib/Semantics/resolve-names.cpp =================================================================== --- flang/lib/Semantics/resolve-names.cpp +++ flang/lib/Semantics/resolve-names.cpp @@ -2254,6 +2254,7 @@ if (scope.IsDerivedType()) { if (Symbol * symbol{scope.FindComponent(name.source)}) { if (!symbol->has() && + !symbol->has() && !symbol->test(Symbol::Flag::ParentComp)) { return Resolve(name, symbol); }