Skip to content

Commit 808fb20

Browse files
Call DetermineCopyInOut() from lowering
1 parent 54c0158 commit 808fb20

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

flang/include/flang/Lower/CallInterface.h

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -284,6 +284,9 @@ class CallerInterface : public CallInterface<CallerInterface> {
284284
CallerInterface(const Fortran::evaluate::ProcedureRef &p,
285285
Fortran::lower::AbstractConverter &c)
286286
: CallInterface{c}, procRef{p} {
287+
// Ensure that procRef gathers necessary information to determine the
288+
// need for copy-in and copy-out
289+
const_cast<Fortran::evaluate::ProcedureRef &>(procRef).DetermineCopyInOut();
287290
declare();
288291
mapPassedEntities();
289292
actualInputs.resize(getNumFIRArguments());

0 commit comments

Comments
 (0)