diff options
Diffstat (limited to 'flang/lib/Semantics/check-declarations.cpp')
| -rw-r--r-- | flang/lib/Semantics/check-declarations.cpp | 9 |
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, |
