[flang-commits] [flang] 5501c16 - [flang] Fix OPEN/WRITE(SIGN='SUPPRESS')

[Peter Klausler via flang-commits]

Author: Peter Klausler
Date: 2022-01-20T15:34:35-08:00
New Revision: 5501c16edf0f0211386edee9029af5a2b92fcc17

URL: https://github.com/llvm/llvm-project/commit/5501c16edf0f0211386edee9029af5a2b92fcc17
DIFF: https://github.com/llvm/llvm-project/commit/5501c16edf0f0211386edee9029af5a2b92fcc17.diff

LOG: [flang] Fix OPEN/WRITE(SIGN='SUPPRESS')

The keyword value was misspelled in the runtime.

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

Added: 
    

Modified: 
    flang/runtime/io-api.cpp

Removed: 
    


################################################################################
diff  --git a/flang/runtime/io-api.cpp b/flang/runtime/io-api.cpp
index 811095417ffb8..2f12bfcad350d 100644
--- a/flang/runtime/io-api.cpp
+++ b/flang/runtime/io-api.cpp
@@ -593,7 +593,8 @@ bool IONAME(SetRound)(Cookie cookie, const char *keyword, std::size_t length) {
 bool IONAME(SetSign)(Cookie cookie, const char *keyword, std::size_t length) {
   IoStatementState &io{*cookie};
   ConnectionState &connection{io.GetConnectionState()};
-  static const char *keywords[]{"PLUS", "YES", "PROCESSOR_DEFINED", nullptr};
+  static const char *keywords[]{
+      "PLUS", "SUPPRESS", "PROCESSOR_DEFINED", nullptr};
   switch (IdentifyValue(keyword, length, keywords)) {
   case 0:
     connection.modes.editingFlags |= signPlus;