diff options
| -rw-r--r-- | flang-rt/include/flang-rt/runtime/io-stmt.h | 5 | ||||
| -rw-r--r-- | flang-rt/lib/runtime/io-stmt.cpp | 16 |
2 files changed, 0 insertions, 21 deletions
diff --git a/flang-rt/include/flang-rt/runtime/io-stmt.h b/flang-rt/include/flang-rt/runtime/io-stmt.h index 03b6efd..b98422b 100644 --- a/flang-rt/include/flang-rt/runtime/io-stmt.h +++ b/flang-rt/include/flang-rt/runtime/io-stmt.h @@ -458,11 +458,6 @@ public: namelistGroup_ = namelistGroup; } - RT_API_ATTRS bool eatComma() const { return eatComma_; } - RT_API_ATTRS void set_eatComma(bool yes) { eatComma_ = yes; } - RT_API_ATTRS bool hitSlash() const { return hitSlash_; } - RT_API_ATTRS void set_hitSlash(bool yes) { hitSlash_ = yes; } - protected: const NamelistGroup *namelistGroup_{nullptr}; diff --git a/flang-rt/lib/runtime/io-stmt.cpp b/flang-rt/lib/runtime/io-stmt.cpp index e260c0c..3260c8f 100644 --- a/flang-rt/lib/runtime/io-stmt.cpp +++ b/flang-rt/lib/runtime/io-stmt.cpp @@ -1076,14 +1076,6 @@ void ChildFormattedIoStatementState<DIR, CHAR>::CompleteOperation() { template <Direction DIR, typename CHAR> int ChildFormattedIoStatementState<DIR, CHAR>::EndIoStatement() { - if constexpr (DIR == Direction::Input) { - if (auto *listInput{this->child() - .parent() - .template get_if< - ListDirectedStatementState<Direction::Input>>()}) { - listInput->set_eatComma(false); - } - } CompleteOperation(); return ChildIoStatementState<DIR>::EndIoStatement(); } @@ -1105,7 +1097,6 @@ ChildListIoStatementState<DIR>::ChildListIoStatementState( if constexpr (DIR == Direction::Input) { if (auto *listInput{child.parent() .get_if<ListDirectedStatementState<Direction::Input>>()}) { - this->set_eatComma(listInput->eatComma()); this->namelistGroup_ = listInput->namelistGroup(); } } @@ -1130,13 +1121,6 @@ bool ChildListIoStatementState<DIR>::AdvanceRecord(int n) { template <Direction DIR> int ChildListIoStatementState<DIR>::EndIoStatement() { if constexpr (DIR == Direction::Input) { - if (auto *listInput{this->child() - .parent() - .template get_if< - ListDirectedStatementState<Direction::Input>>()}) { - listInput->set_eatComma(this->eatComma()); - listInput->set_hitSlash(this->hitSlash()); - } if (int status{ListDirectedStatementState<DIR>::EndIoStatement()}; status != IostatOk) { return status; |