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

[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__};
----------------
jeanPerier wrote:

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

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