Skip to content

Commit 74ba369

Browse files
committed
address nits
1 parent 7c4a4f4 commit 74ba369

File tree

1 file changed

+2
-8
lines changed

1 file changed

+2
-8
lines changed

flang/lib/Lower/CallInterface.cpp

Lines changed: 2 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1005,14 +1005,8 @@ class Fortran::lower::CallInterfaceImpl {
10051005
if (isValueAttr &&
10061006
!getConverter().getLoweringOptions().getLowerToHighLevelFIR())
10071007
TODO(loc, "assumed shape dummy argument with VALUE attribute");
1008-
Property prop = Property::Box;
1009-
PassEntityBy passBy = PassEntityBy::Box;
1010-
/*if (isValueAttr) {
1011-
passBy = PassEntityBy::BaseAddressValueAttribute;
1012-
prop = Property::Value;
1013-
}*/
1014-
addFirOperand(boxType, nextPassedArgPosition(), prop, attrs);
1015-
addPassedArg(passBy, entity, characteristics);
1008+
addFirOperand(boxType, nextPassedArgPosition(), Property::Box, attrs);
1009+
addPassedArg(PassEntityBy::Box, entity, characteristics);
10161010
} else if (dynamicType.category() ==
10171011
Fortran::common::TypeCategory::Character) {
10181012
// Pass as fir.box_char

0 commit comments

Comments
 (0)