| 1 | //===-- flang/lib/Semantics/openmp-dsa.cpp ----------------------*- C++ -*-===// |
|---|
| 2 | // |
|---|
| 3 | // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
|---|
| 4 | // See https://llvm.org/LICENSE.txt for license information. |
|---|
| 5 | // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
|---|
| 6 | // |
|---|
| 7 | //===----------------------------------------------------------------------===// |
|---|
| 8 | |
|---|
| 9 | #include "flang/Semantics/openmp-dsa.h" |
|---|
| 10 | |
|---|
| 11 | namespace Fortran::semantics { |
|---|
| 12 | |
|---|
| 13 | Symbol::Flags GetSymbolDSA(const Symbol &symbol) { |
|---|
| 14 | Symbol::Flags dsaFlags{Symbol::Flag::OmpPrivate, |
|---|
| 15 | Symbol::Flag::OmpFirstPrivate, Symbol::Flag::OmpLastPrivate, |
|---|
| 16 | Symbol::Flag::OmpShared, Symbol::Flag::OmpLinear, |
|---|
| 17 | Symbol::Flag::OmpReduction}; |
|---|
| 18 | Symbol::Flags dsa{symbol.flags() & dsaFlags}; |
|---|
| 19 | if (dsa.any()) { |
|---|
| 20 | return dsa; |
|---|
| 21 | } |
|---|
| 22 | // If no DSA are set use those from the host associated symbol, if any. |
|---|
| 23 | if (const auto *details{symbol.detailsIf<HostAssocDetails>()}) { |
|---|
| 24 | return GetSymbolDSA(details->symbol()); |
|---|
| 25 | } |
|---|
| 26 | return {}; |
|---|
| 27 | } |
|---|
| 28 | |
|---|
| 29 | } // namespace Fortran::semantics |
|---|
| 30 | |
|---|
