diff options
Diffstat (limited to 'flang/lib/Semantics/check-call.cpp')
| -rw-r--r-- | flang/lib/Semantics/check-call.cpp | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/flang/lib/Semantics/check-call.cpp b/flang/lib/Semantics/check-call.cpp index 6f250328..83f59f0 100644 --- a/flang/lib/Semantics/check-call.cpp +++ b/flang/lib/Semantics/check-call.cpp @@ -1058,12 +1058,11 @@ static void CheckExplicitDataArg(const characteristics::DummyDataObject &dummy, dummyName); } } - std::optional<std::string> warning; bool isHostDeviceProc{procedure.cudaSubprogramAttrs && *procedure.cudaSubprogramAttrs == common::CUDASubprogramAttrs::HostDevice}; if (!common::AreCompatibleCUDADataAttrs(dummyDataAttr, actualDataAttr, - dummy.ignoreTKR, &warning, /*allowUnifiedMatchingRule=*/true, + dummy.ignoreTKR, /*allowUnifiedMatchingRule=*/true, isHostDeviceProc, &context.languageFeatures())) { auto toStr{[](std::optional<common::CUDADataAttr> x) { return x ? "ATTRIBUTES("s + @@ -1074,10 +1073,6 @@ static void CheckExplicitDataArg(const characteristics::DummyDataObject &dummy, "%s has %s but its associated actual argument has %s"_err_en_US, dummyName, toStr(dummyDataAttr), toStr(actualDataAttr)); } - if (warning && context.ShouldWarn(common::UsageWarning::CUDAUsage)) { - messages.Say(common::UsageWarning::CUDAUsage, "%s"_warn_en_US, - std::move(*warning)); - } } // Warning for breaking F'2023 change with character allocatables |