summaryrefslogtreecommitdiff
path: root/flang/lib/Evaluate/fold.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'flang/lib/Evaluate/fold.cpp')
-rw-r--r--flang/lib/Evaluate/fold.cpp7
1 files changed, 2 insertions, 5 deletions
diff --git a/flang/lib/Evaluate/fold.cpp b/flang/lib/Evaluate/fold.cpp
index 71ead1b3afa9..1fbbbba909fb 100644
--- a/flang/lib/Evaluate/fold.cpp
+++ b/flang/lib/Evaluate/fold.cpp
@@ -290,11 +290,8 @@ std::optional<Expr<SomeType>> FoldTransfer(
} else if (source && moldType) {
if (const auto *boz{std::get_if<BOZLiteralConstant>(&source->u)}) {
// TRANSFER(BOZ, MOLD=integer or real) extension
- if (context.languageFeatures().ShouldWarn(
- common::LanguageFeature::TransferBOZ)) {
- context.messages().Say(common::LanguageFeature::TransferBOZ,
- "TRANSFER(BOZ literal) is not standard"_port_en_US);
- }
+ context.Warn(common::LanguageFeature::TransferBOZ,
+ "TRANSFER(BOZ literal) is not standard"_port_en_US);
return Fold(context, ConvertToType(*moldType, Expr<SomeType>{*boz}));
}
}