[flang-commits] [flang] 50bccf2 - [flang] Add runtime interface for GET_COMMAND

[Diana Picus via flang-commits]

Author: Diana Picus
Date: 2022-02-09T09:49:03Z
New Revision: 50bccf22970239cf292145c548af71e8eac0020b

URL: https://github.com/llvm/llvm-project/commit/50bccf22970239cf292145c548af71e8eac0020b
DIFF: https://github.com/llvm/llvm-project/commit/50bccf22970239cf292145c548af71e8eac0020b.diff

LOG: [flang] Add runtime interface for GET_COMMAND

Use a single entry point with several optional parameters.

Differential Revision: https://reviews.llvm.org/D118776

Added: 
    

Modified: 
    flang/include/flang/Runtime/command.h

Removed: 
    


################################################################################
diff  --git a/flang/include/flang/Runtime/command.h b/flang/include/flang/Runtime/command.h
index 67d7e7cb0b9c3..f224aa75fd2f4 100644
--- a/flang/include/flang/Runtime/command.h
+++ b/flang/include/flang/Runtime/command.h
@@ -23,6 +23,13 @@ extern "C" {
 // integer kind.
 std::int32_t RTNAME(ArgumentCount)();
 
+// 16.9.82 GET_COMMAND
+// Try to get the value of the whole command. All of the parameters are
+// optional.
+// Return a STATUS as described in the standard.
+std::int32_t RTNAME(GetCommand)(const Descriptor *command = nullptr,
+    const Descriptor *length = nullptr, const Descriptor *errmsg = nullptr);
+
 // 16.9.83 GET_COMMAND_ARGUMENT
 // We're breaking up the interface into several 
diff erent functions, since most
 // of the parameters are optional.