[flang] Fix shared library build

A recent patch introduced a dependency upon Semantics from
Evaluate; fixing immediately.

1 files changed, 9 insertions, 1 deletions

diff --git a/flang/lib/Evaluate/type.cpp b/flang/lib/Evaluate/type.cpp
index fa57755..8d49f62 100644
--- a/flang/lib/Evaluate/type.cpp
+++ b/flang/lib/Evaluate/type.cpp
@@ -215,7 +215,15 @@ static const semantics::Symbol *FindParentComponent(
   }
   if (scope) {
     const auto &dtDetails{typeSymbol.get<semantics::DerivedTypeDetails>()};
-    return dtDetails.GetParentComponent(*scope);
+    // TODO: Combine with semantics::DerivedTypeDetails::GetParentComponent
+    if (auto extends{dtDetails.GetParentComponentName()}) {
+      if (auto iter{scope->find(*extends)}; iter != scope->cend()) {
+        if (const semantics::Symbol & symbol{*iter->second};
+            symbol.test(semantics::Symbol::Flag::ParentComp)) {
+          return &symbol;
+        }
+      }
+    }
   }
   return nullptr;
 }