[flang-commits] [flang] e686695 - [flang][OpenMP] Accept firstprivate vars in copyprivate (#80467)
via flang-commits
flang-commits at lists.llvm.org
Tue Feb 6 05:02:46 PST 2024
Author: Leandro Lupori
Date: 2024-02-06T10:02:42-03:00
New Revision: e6866955f637634f439f7004a38be32b1c5185e2
URL: https://github.com/llvm/llvm-project/commit/e6866955f637634f439f7004a38be32b1c5185e2
DIFF: https://github.com/llvm/llvm-project/commit/e6866955f637634f439f7004a38be32b1c5185e2.diff
LOG: [flang][OpenMP] Accept firstprivate vars in copyprivate (#80467)
This is patch 1 of 4, to add support for COPYPRIVATE.
Original PR: https://github.com/llvm/llvm-project/pull/73128
Added:
Modified:
flang/lib/Semantics/resolve-directives.cpp
flang/test/Semantics/OpenMP/copyprivate03.f90
Removed:
################################################################################
diff --git a/flang/lib/Semantics/resolve-directives.cpp b/flang/lib/Semantics/resolve-directives.cpp
index 8d38790d2006a..4b6d083671bc9 100644
--- a/flang/lib/Semantics/resolve-directives.cpp
+++ b/flang/lib/Semantics/resolve-directives.cpp
@@ -2467,7 +2467,8 @@ void OmpAttributeVisitor::CheckDataCopyingClause(
// either 'private' or 'threadprivate' in enclosing context.
if (!checkSymbol->test(Symbol::Flag::OmpThreadprivate) &&
!(HasSymbolInEnclosingScope(symbol, currScope()) &&
- symbol.test(Symbol::Flag::OmpPrivate))) {
+ (symbol.test(Symbol::Flag::OmpPrivate) ||
+ symbol.test(Symbol::Flag::OmpFirstPrivate)))) {
context_.Say(name.source,
"COPYPRIVATE variable '%s' is not PRIVATE or THREADPRIVATE in "
"outer context"_err_en_US,
diff --git a/flang/test/Semantics/OpenMP/copyprivate03.f90 b/flang/test/Semantics/OpenMP/copyprivate03.f90
index eccc308b1d5ab..9d39fdb6b13c8 100644
--- a/flang/test/Semantics/OpenMP/copyprivate03.f90
+++ b/flang/test/Semantics/OpenMP/copyprivate03.f90
@@ -34,6 +34,13 @@ program omp_copyprivate
!$omp end parallel
!$omp end parallel sections
+ !The use of FIRSTPRIVATE with COPYPRIVATE is allowed
+ !$omp parallel firstprivate(a)
+ !$omp single
+ a = a + k
+ !$omp end single copyprivate(a)
+ !$omp end parallel
+
print *, a, b
end program omp_copyprivate
More information about the flang-commits
mailing list