[flang-commits] [PATCH] D132259: [flang] Add a placeholder argument for a format descriptor on IO calls

[Peter Klausler via Phabricator via flang-commits]

This revision was automatically updated to reflect the committed changes.
Closed by commit rGd0e03bf06b2a: [flang] Add a placeholder argument for a format descriptor on IO calls (authored by klausler).

Repository:
  rG LLVM Github Monorepo

CHANGES SINCE LAST ACTION
  https://reviews.llvm.org/D132259/new/

https://reviews.llvm.org/D132259

Files:
  flang/lib/Lower/IO.cpp


Index: flang/lib/Lower/IO.cpp
===================================================================
--- flang/lib/Lower/IO.cpp
+++ flang/lib/Lower/IO.cpp
@@ -1894,11 +1894,15 @@
         loc, builder.getIntegerAttr(ioFuncTy.getInput(ioArgs.size()),
                                     Fortran::runtime::io::DefaultUnit)));
   }
-  // File name and line number are always the last two arguments.
+  // File name and line number.
   ioArgs.push_back(
       locToFilename(converter, loc, ioFuncTy.getInput(ioArgs.size())));
   ioArgs.push_back(
       locToLineNo(converter, loc, ioFuncTy.getInput(ioArgs.size())));
+  // Placeholder for format passed as a descriptor.
+  if (isFormatted && !isListOrNml)
+    ioArgs.push_back(
+        builder.createNullConstant(loc, ioFuncTy.getInput(ioArgs.size())));
 }
 
 template <bool isInput, bool hasIOCtrl = true, typename A>


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D132259.454098.patch
Type: text/x-patch
Size: 867 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/flang-commits/attachments/20220819/fef14e4d/attachment.bin>