[flang] [llvm] [flang] Implement FSEEK and FTELL (PR #133003)

[Peter Klausler via llvm-commits]

================
@@ -1510,6 +1521,17 @@ static const IntrinsicInterface intrinsicSubroutine[]{
     {"exit", {{"status", DefaultInt, Rank::scalar, Optionality::optional}}, {},
         Rank::elemental, IntrinsicClass::impureSubroutine},
     {"free", {{"ptr", Addressable}}, {}},
+    {"fseek",
+        {{"unit", AnyInt, Rank::scalar}, {"offset", AnyInt, Rank::scalar},
+            {"whence", AnyInt, Rank::scalar},
+            {"status", AnyInt, Rank::scalar, Optionality::optional,
+                common::Intent::InOut}},
+        {}, Rank::elemental, IntrinsicClass::impureSubroutine},
+    {"ftell",
+        {{"unit", AnyInt, Rank::scalar},
+            {"offset", AnyInt, Rank::scalar, Optionality::required,
----------------
klausler wrote:

I've implemented it in a generic form that will work with any kind of integer variable that is associated with the dummy argument, which seemed to me to be the best for portability.

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