[Flang][OpenMP] : Add a temporary lowering for workshare directive by kiranchandramohan · Pull Request #78268 · llvm/llvm-project (original) (raw)

Expand Up

@@ -1740,7 +1740,11 @@ genOMP(Fortran::lower::AbstractConverter &converter,

/*outerCombined=*/false);

break;

case llvm::omp::Directive::OMPD_workshare:

TODO(currentLocation, "Workshare construct");

// FIXME: Workshare is not a commonly used OpenMP construct, an

// implementation for this feature will come later. For the codes

// that use this construct, add a single construct for now.

genSingleOp(converter, semaCtx, eval, /*genNested=*/true, currentLocation,

beginClauseList, endClauseList);

break;

default:

singleDirective = false;

Expand Down Expand Up

@@ -1775,7 +1779,8 @@ genOMP(Fortran::lower::AbstractConverter &converter,

}

if ((llvm::omp::workShareSet & llvm::omp::blockConstructSet)

.test(directive.v)) {

TODO(currentLocation, "Workshare construct");

genSingleOp(converter, semaCtx, eval, /*genNested=*/false, currentLocation,

beginClauseList, endClauseList);

combinedDirective = true;

}

if (!combinedDirective)

Expand Down