[flang-commits] [flang] [flang][runtime] add SHAPE runtime interface (PR #94702)

[Slava Zakharin via flang-commits]

================
@@ -76,5 +85,15 @@ std::int64_t RTDEF(SizeDim)(
   return static_cast<std::int64_t>(dimension.Extent());
 }
 
+void RTDEF(Shape)(void *result, const Descriptor &array, int kind) {
+  Terminator terminator{__FILE__, __LINE__};
----------------
vzakhari wrote:

LGTM, but I would prefer passing relevant source information to the runtime.

https://github.com/llvm/llvm-project/pull/94702