summaryrefslogtreecommitdiff
path: root/flang/lib/Semantics/check-declarations.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'flang/lib/Semantics/check-declarations.cpp')
-rw-r--r--flang/lib/Semantics/check-declarations.cpp9
1 files changed, 6 insertions, 3 deletions
diff --git a/flang/lib/Semantics/check-declarations.cpp b/flang/lib/Semantics/check-declarations.cpp
index 1d09dea06db5..46a5b970fdf0 100644
--- a/flang/lib/Semantics/check-declarations.cpp
+++ b/flang/lib/Semantics/check-declarations.cpp
@@ -2586,9 +2586,12 @@ void CheckHelper::CheckProcBinding(
}
if (overridden) {
if (isInaccessibleDeferred) {
- SayWithDeclaration(*overridden,
- "Override of PRIVATE DEFERRED '%s' must appear in its module"_err_en_US,
- symbol.name());
+ evaluate::AttachDeclaration(
+ Warn(common::LanguageFeature::InaccessibleDeferredOverride,
+ symbol.name(),
+ "Override of PRIVATE DEFERRED '%s' should appear in its module"_warn_en_US,
+ symbol.name()),
+ *overridden);
}
if (overridden->attrs().test(Attr::NON_OVERRIDABLE)) {
SayWithDeclaration(*overridden,