[flang] Omit parent components for references to bindings

llvm#78593 changed expression
semantics to always include the names of parent components that
were necessary to access an inherited component.  This turns out
to have broken calls to inherited NOPASS procedure bindings.
Update the patch to omit explicit parent components when accessing
bindings, while retaining them for component accesses (including
procedure components).

Author: klausler

flang/lib/Semantics/expression.cpp

@@ -1299,15 +1299,17 @@ static NamedEntity IgnoreAnySubscripts(Designator<SomeDerived> &&designator) {
       std::move(designator.u));
 }
 
-// Components of parent derived types are explicitly represented as such.
+// Components, but not bindings, of parent derived types are explicitly
+// represented as such.
 std::optional<Component> ExpressionAnalyzer::CreateComponent(DataRef &&base,
     const Symbol &component, const semantics::Scope &scope,
     bool C919bAlreadyEnforced) {
   if (!C919bAlreadyEnforced && IsAllocatableOrPointer(component) &&
       base.Rank() > 0) { // C919b
     Say("An allocatable or pointer component reference must be applied to a scalar base"_err_en_US);
   }
-  if (&component.owner() == &scope) {
+  if (&component.owner() == &scope ||
+      component.has<semantics::ProcBindingDetails>()) {
     return Component{std::move(base), component};
   }
   if (const Symbol *typeSymbol{scope.GetSymbol()}) {