[flang-commits] [flang] [flang] `do concurrent`: Enable delayed localization by default (PR #154303)

[Kareem Ergawy via flang-commits]

https://github.com/ergawy created https://github.com/llvm/llvm-project/pull/154303

Enables delayed localization by default for `do concurrent`. Tested both gfortran and Fujitsu test suites.

All tests pass for gfortran tests. For Fujitsu, enabled delayed localization passes more tests:

Delayed localization disabled:
Testing Time: 7251.76s
  Passed            : 88520
  Failed            :   162
  Executable Missing:   408

Delayed localization enabled:
Testing Time: 7216.73s
  Passed            : 88522
  Failed            :   160
  Executable Missing:   408

>From 35443b638f5ec636c5afdfd2ac10b0c787940380 Mon Sep 17 00:00:00 2001
From: ergawy <kareem.ergawy at amd.com>
Date: Tue, 19 Aug 2025 04:40:34 -0500
Subject: [PATCH] [flang] `do concurrent`: Enable delayed localization by
 default

Enables delayed localization by default for `do concurrent`. Tested both
gfortran and Fujitsu test suites.

All tests pass for gfortran tests. For Fujitsu, enabled delayed
localization passes more tests:

Delayed localization disabled:
Testing Time: 7251.76s
  Passed            : 88520
  Failed            :   162
  Executable Missing:   408

Delayed localization enabled:
Testing Time: 7216.73s
  Passed            : 88522
  Failed            :   160
  Executable Missing:   408
---
 flang/lib/Lower/Bridge.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flang/lib/Lower/Bridge.cpp b/flang/lib/Lower/Bridge.cpp
index ab7bf28a9e8bf..62968725b9271 100644
--- a/flang/lib/Lower/Bridge.cpp
+++ b/flang/lib/Lower/Bridge.cpp
@@ -2065,7 +2065,7 @@ class FirConverter : public Fortran::lower::AbstractConverter {
     // default unlike the staging flag) once the implementation of this is more
     // complete.
     bool useDelayedPriv =
-        enableDelayedPrivatizationStaging && doConcurrentLoopOp;
+        enableDelayedPrivatization && doConcurrentLoopOp;
     llvm::SetVector<const Fortran::semantics::Symbol *> allPrivatizedSymbols;
     llvm::SmallSet<const Fortran::semantics::Symbol *, 16> mightHaveReadHostSym;