[flang-commits] [flang] [flang][fir] Lower `do concurrent` loop nests to `fir.do_concurrent` (PR #132904)

[Kareem Ergawy via flang-commits]

================
@@ -279,6 +279,9 @@ mlir::Block *fir::FirOpBuilder::getAllocaBlock() {
   if (auto cufKernelOp = getRegion().getParentOfType<cuf::KernelOp>())
     return &cufKernelOp.getRegion().front();
 
+  if (auto doConcurentOp = getRegion().getParentOfType<fir::DoConcurrentOp>())
+    return doConcurentOp.getBody();
----------------
ergawy wrote:

Ah you are right! I have a PR that handles this situation for OpenMP: https://github.com/llvm/llvm-project/pull/127635. So I think it should be fine at least for now.

https://github.com/llvm/llvm-project/pull/132904