[flang][runtime] Return the right mutable modes from INQUIRE in child I/O

[klausler]

Summary

During child I/O -- a call to a user-defined subroutine with a generic interface
to handle read and write operations on a specific derived type -- ensure that
any INQUIRE statement probing mutable modes like BLANK= will observe changes
that have been made to those modes via control edit descriptors like BN
while processing the original I/O statement's format.

[clementval]

LGTM

flang/runtime/io-stmt.cpp

InternalListIoStatementState<DIR>::InternalListIoStatementState(
     const Descriptor &d, const char *sourceFile, int sourceLine)
     : InternalIoStatementState<DIR>{d, sourceFile, sourceLine},
       ioStatementState_{*this} {}
 
 ExternalIoStatementBase::ExternalIoStatementBase(
     ExternalFileUnit &unit, const char *sourceFile, int sourceLine)
     : IoStatementBase{sourceFile, sourceLine}, unit_{unit} {}
 
-MutableModes &ExternalIoStatementBase::mutableModes() { return unit_.modes; }
+MutableModes &ExternalIoStatementBase::mutableModes() {
+  if (const ChildIo * child{unit_.GetChildIo()}) {
+    return child->parent().mutableModes();
+  }
+  return unit_.modes;
+}
 
 ConnectionState &ExternalIoStatementBase::GetConnectionState() { return unit_; }
 
 int ExternalIoStatementBase::EndIoStatement() {
   CompleteOperation();
   auto result{IoStatementBase::EndIoStatement()};
   unit_.EndIoStatement(); // annihilates *this in unit_.u_
   return result;
bool InquireUnitState::Inquire(
   case HashInquiryKeyword("ASYNCHRONOUS"):
     str = !unit().IsConnected()    ? "UNDEFINED"
         : unit().mayAsynchronous() ? "YES"
                                    : "NO";
     break;
   case HashInquiryKeyword("BLANK"):
     str = !unit().IsConnected() || unit().isUnformatted.value_or(true)
         ? "UNDEFINED"
-        : unit().modes.editingFlags & blankZero ? "ZERO"
+        : mutableModes().editingFlags & blankZero ? "ZERO"
                                                   : "NULL";
     break;
   case HashInquiryKeyword("CARRIAGECONTROL"):
     str = "LIST";
     break;
   case HashInquiryKeyword("CONVERT"):
     str = unit().swapEndianness() ? "SWAP" : "NATIVE";
     break;
   case HashInquiryKeyword("DECIMAL"):
     str = !unit().IsConnected() || unit().isUnformatted.value_or(true)
         ? "UNDEFINED"
-        : unit().modes.editingFlags & decimalComma ? "COMMA"
+        : mutableModes().editingFlags & decimalComma ? "COMMA"
                                                      : "POINT";
     break;
   case HashInquiryKeyword("DELIM"):
     if (!unit().IsConnected() || unit().isUnformatted.value_or(true)) {
       str = "UNDEFINED";
     } else {
-      switch (unit().modes.delim) {
+      switch (mutableModes().delim) {
       case '\'':
         str = "APOSTROPHE";
         break;
       case '"':
         str = "QUOTE";
         break;
       default:
         str = "NONE";
case HashInquiryKeyword("NAME"):
     str = unit().path();
     if (!str) {
       return true; // result is undefined
     }
     break;
   case HashInquiryKeyword("PAD"):
     str = !unit().IsConnected() || unit().isUnformatted.value_or(true)
         ? "UNDEFINED"
-        : unit().modes.pad ? "YES"
+        : mutableModes().pad ? "YES"
                              : "NO";
     break;
   case HashInquiryKeyword("POSITION"):
     if (!unit().IsConnected() || unit().access == Access::Direct) {
       str = "UNDEFINED";
     } else {
       switch (unit().InquirePosition()) {
       case Position::Rewind:
         str = "REWIND";
case HashInquiryKeyword("READWRITE"):
     str = !unit().IsConnected()                 ? "UNDEFINED"
         : unit().mayRead() && unit().mayWrite() ? "YES"
                                                 : "NO";
     break;
   case HashInquiryKeyword("ROUND"):
     if (!unit().IsConnected() || unit().isUnformatted.value_or(true)) {
       str = "UNDEFINED";
     } else {
-      switch (unit().modes.round) {
+      switch (mutableModes().round) {
       case decimal::FortranRounding::RoundNearest:
         str = "NEAREST";
         break;
       case decimal::FortranRounding::RoundUp:
         str = "UP";
         break;
       case decimal::FortranRounding::RoundDown:
         str = "DOWN";
case HashInquiryKeyword("SEQUENTIAL"):
     // the unit were reopened without RECL=.
     str = !unit().IsConnected()               ? "UNKNOWN"
         : unit().access == Access::Sequential ? "YES"
                                               : "NO";
     break;
   case HashInquiryKeyword("SIGN"):
     str = !unit().IsConnected() || unit().isUnformatted.value_or(true)
         ? "UNDEFINED"
-        : unit().modes.editingFlags & signPlus ? "PLUS"
+        : mutableModes().editingFlags & signPlus ? "PLUS"
                                                  : "SUPPRESS";
     break;
   case HashInquiryKeyword("STREAM"):
     str = !unit().IsConnected()           ? "UNKNOWN"
         : unit().access == Access::Stream ? "YES"
                                           : "NO";
     break;
   case HashInquiryKeyword("UNFORMATTED"):
     str = !unit().IsConnected() || !unit().isUnformatted ? "UNKNOWN"