================
@@ -478,6 +474,25 @@ bool ClauseProcessor::processDeviceType(
return false;
}
+bool ClauseProcessor::processIndirect(
+ mlir::omp::IndirectClauseOps &result) const {
+ if (auto *clause = findUniqueClause<omp::clause::Indirect>()) {
+ // Case: declare target ... indirect[(scalar-logical-constant)]
+ // An `indirect` clause with no argument defaults to `.true.`.
+ bool isIndirect = true;
+ if (clause->v) {
+ auto foldedExpr = Fortran::evaluate::Fold(
+ semaCtx.foldingContext(), Fortran::common::Clone(*clause->v));
+ if (auto logicalVal = Fortran::evaluate::GetScalarConstantValue<
----------------
blazie2004 wrote:
resolved
https://github.com/llvm/llvm-project/pull/208387
_______________________________________________
cfe-commits mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/cfe-commits
