From 50bccf22970239cf292145c548af71e8eac0020b Mon Sep 17 00:00:00 2001 From: Diana Picus Date: Wed, 26 Jan 2022 09:08:49 +0000 Subject: [PATCH] [flang] Add runtime interface for GET_COMMAND Use a single entry point with several optional parameters. Differential Revision: https://reviews.llvm.org/D118776 --- flang/include/flang/Runtime/command.h | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/flang/include/flang/Runtime/command.h b/flang/include/flang/Runtime/command.h index 67d7e7cb0b9c..f224aa75fd2f 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 different functions, since most // of the parameters are optional.