GetShape for variables loaded from modules

foxtran · foxtran · commit 82582e6b0a9b · 2025-10-07T22:42:40.000+02:00
diff --git a/flang/lib/Semantics/symbol.cpp b/flang/lib/Semantics/symbol.cpp
@@ -453,6 +453,8 @@ bool Symbol::IsFuncResult() const {
 const ArraySpec *Symbol::GetShape() const {
   if (const auto *details{std::get_if<ObjectEntityDetails>(&details_)}) {
     return &details->shape();
+  } else if (const auto *details{std::get_if<UseDetails>(&details_)}) {
+    return details->symbol().GetShape();
   } else {
     return nullptr;
   }

Original file line number	Diff line number	Diff line change
`@@ -453,6 +453,8 @@ bool Symbol::IsFuncResult() const {`
`453`	`453`	`const ArraySpec *Symbol::GetShape() const {`
`454`	`454`	`if (const auto *details{std::get_if<ObjectEntityDetails>(&details_)}) {`
`455`	`455`	`return &details->shape();`
	`456`	`+ } else if (const auto *details{std::get_if<UseDetails>(&details_)}) {`
	`457`	`+ return details->symbol().GetShape();`
`456`	`458`	`} else {`
`457`	`459`	`return nullptr;`
`458`	`460`	`}`