diff options
| author | NAKAMURA Takumi <geek4civic@gmail.com> | 2025-01-09 17:50:40 +0900 |
|---|---|---|
| committer | NAKAMURA Takumi <geek4civic@gmail.com> | 2025-01-09 17:50:40 +0900 |
| commit | fea7da1b00cc97d742faede2df96c7d327950f49 (patch) | |
| tree | 4de1d6b4ddc69f4f32daabb11ad5c71ab0cf895e /flang/lib/Semantics/check-allocate.cpp | |
| parent | 9b99dde0d47102625d93c5d1cbbc04951025a6c9 (diff) | |
| parent | 0aa930a41f2d1ebf1fa90ec42da8f96d15a4dcbb (diff) | |
| download | llvm-users/chapuni/cov/single/nextcount.zip llvm-users/chapuni/cov/single/nextcount.tar.gz llvm-users/chapuni/cov/single/nextcount.tar.bz2 | |
Merge branch 'users/chapuni/cov/single/nextcount-base' into users/chapuni/cov/single/nextcountusers/chapuni/cov/single/nextcount
Diffstat (limited to 'flang/lib/Semantics/check-allocate.cpp')
| -rw-r--r-- | flang/lib/Semantics/check-allocate.cpp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/flang/lib/Semantics/check-allocate.cpp b/flang/lib/Semantics/check-allocate.cpp index 1e54123..223bee6 100644 --- a/flang/lib/Semantics/check-allocate.cpp +++ b/flang/lib/Semantics/check-allocate.cpp @@ -616,9 +616,11 @@ bool AllocationCheckerHelper::RunChecks(SemanticsContext &context) { } if (allocateInfo_.gotPinned) { std::optional<common::CUDADataAttr> cudaAttr{GetCUDADataAttr(ultimate_)}; - if (!cudaAttr || *cudaAttr != common::CUDADataAttr::Pinned) { + if ((!cudaAttr || *cudaAttr != common::CUDADataAttr::Pinned) && + context.languageFeatures().ShouldWarn( + common::UsageWarning::CUDAUsage)) { context.Say(name_.source, - "Object in ALLOCATE must have PINNED attribute when PINNED option is specified"_err_en_US); + "Object in ALLOCATE should have PINNED attribute when PINNED option is specified"_warn_en_US); } } if (allocateInfo_.gotStream) { |