@@ -785,6 +785,7 @@ genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
785
785
ClauseProcessor cp (converter, semaCtx, clauseList);
786
786
cp.processIf (directiveName, ifClauseOperand);
787
787
cp.processDevice (stmtCtx, deviceOperand);
788
+ cp.processDepend (dependTypeOperands, dependOperands);
788
789
cp.processNowait (nowaitAttr);
789
790
790
791
if constexpr (std::is_same_v<OpTy, mlir::omp::UpdateDataOp>) {
@@ -796,7 +797,6 @@ genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
796
797
} else {
797
798
cp.processMap (currentLocation, directive, stmtCtx, mapOperands);
798
799
}
799
- cp.processDepend (dependTypeOperands, dependOperands);
800
800
801
801
return firOpBuilder.create <OpTy>(
802
802
currentLocation, ifClauseOperand, deviceOperand,
@@ -982,10 +982,11 @@ genTargetOp(Fortran::lower::AbstractConverter &converter,
982
982
ifClauseOperand);
983
983
cp.processDevice (stmtCtx, deviceOperand);
984
984
cp.processThreadLimit (stmtCtx, threadLimitOperand);
985
+ cp.processDepend (dependTypeOperands, dependOperands);
985
986
cp.processNowait (nowaitAttr);
986
987
cp.processMap (currentLocation, directive, stmtCtx, mapOperands, &mapSymTypes,
987
988
&mapSymLocs, &mapSymbols);
988
- cp. processDepend (dependTypeOperands, dependOperands);
989
+
989
990
cp.processTODO <Fortran::parser::OmpClause::Private,
990
991
Fortran::parser::OmpClause::Firstprivate,
991
992
Fortran::parser::OmpClause::IsDevicePtr,
0 commit comments