This reverts commit b5dbf8210a.
Reverting again due to gfortran failure:
https://lab.llvm.org/buildbot/#/builders/17/builds/8868
This commit is contained in:
@@ -2033,7 +2033,11 @@ private:
|
||||
fir::LocalitySpecifierOperands privateClauseOps;
|
||||
auto doConcurrentLoopOp =
|
||||
mlir::dyn_cast_if_present<fir::DoConcurrentLoopOp>(info.loopOp);
|
||||
bool useDelayedPriv = enableDelayedPrivatization && doConcurrentLoopOp;
|
||||
// TODO Promote to using `enableDelayedPrivatization` (which is enabled by
|
||||
// default unlike the staging flag) once the implementation of this is more
|
||||
// complete.
|
||||
bool useDelayedPriv =
|
||||
enableDelayedPrivatizationStaging && doConcurrentLoopOp;
|
||||
llvm::SetVector<const Fortran::semantics::Symbol *> allPrivatizedSymbols;
|
||||
llvm::SmallSet<const Fortran::semantics::Symbol *, 16> mightHaveReadHostSym;
|
||||
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck %s
|
||||
! RUN: %flang_fc1 -emit-hlfir -mmlir --enable-delayed-privatization-staging=true -o - %s | FileCheck %s
|
||||
|
||||
subroutine do_concurrent_with_locality_specs
|
||||
implicit none
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck %s
|
||||
! RUN: %flang_fc1 -emit-hlfir -mmlir --enable-delayed-privatization-staging=true -o - %s | FileCheck %s
|
||||
|
||||
subroutine local_assoc
|
||||
implicit none
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
! Test default initialization of DO CONCURRENT LOCAL() entities.
|
||||
! RUN: bbc -emit-hlfir -I nowhere -o - %s | FileCheck %s
|
||||
! RUN: bbc -emit-hlfir --enable-delayed-privatization-staging=true -I nowhere -o - %s | FileCheck %s
|
||||
|
||||
subroutine test_ptr(p)
|
||||
interface
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
! RUN: bbc -emit-fir -hlfir=false --enable-delayed-privatization=false -o - %s | FileCheck %s
|
||||
! RUN: bbc -emit-fir -hlfir=false -o - %s | FileCheck %s
|
||||
|
||||
! CHECK-LABEL: loop_test
|
||||
subroutine loop_test
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
! Test do concurrent reduction
|
||||
! RUN: bbc -emit-fir -hlfir=false --enable-delayed-privatization=false -o - %s | FileCheck %s
|
||||
! RUN: bbc -emit-fir -hlfir=false -o - %s | FileCheck %s
|
||||
|
||||
! CHECK-LABEL: loop_test
|
||||
subroutine loop_test
|
||||
|
||||
Reference in New Issue
Block a user