From d0e03bf06b2a7c05d8c478845282a68cba7cdda2 Mon Sep 17 00:00:00 2001
From: Peter Klausler <pklausler@nvidia.com>
Date: Fri, 19 Aug 2022 13:33:50 -0700
Subject: [PATCH] [flang] Add a placeholder argument for a format descriptor on
 IO calls

Author: vdonaldson

Differential Revision: https://reviews.llvm.org/D132259
---
 flang/lib/Lower/IO.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/flang/lib/Lower/IO.cpp b/flang/lib/Lower/IO.cpp
index 6545d20..b7fc7c4 100644
--- a/flang/lib/Lower/IO.cpp
+++ b/flang/lib/Lower/IO.cpp
@@ -1894,11 +1894,15 @@ void genBeginDataTransferCallArgs(
         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>
-- 
2.7.4