Index: flang/include/flang/Runtime/command.h =================================================================== --- flang/include/flang/Runtime/command.h +++ flang/include/flang/Runtime/command.h @@ -23,6 +23,19 @@ // integer kind. std::int32_t RTNAME(ArgumentCount)(); +// 16.9.82 GET_COMMAND +// We're breaking up the interface into several different functions, since most +// of the parameters are optional. + +// Try to get the value of the whole command. +// Return a STATUS as described in the standard. +std::int32_t RTNAME(CommandValue)( + const Descriptor *value = nullptr, const Descriptor *errmsg = nullptr); + +// Try to get the significant length of the whole command. +// Returns 0 if it doesn't manage. +std::int64_t RTNAME(CommandLength)(); + // 16.9.83 GET_COMMAND_ARGUMENT // We're breaking up the interface into several different functions, since most // of the parameters are optional.