25       : context_{context}, formatCharBlock_{formatCharBlock},  in FormatErrorReporter()
31   SemanticsContext &context_;  member in Fortran::semantics::FormatErrorReporter
37   if (!msg.isError && !context_.warnOnNonstandardUsage()) {  in Say()
47     context_.Say(formatCharBlock_, text);  in Say()
53     context_.Say(messageCharBlock, text);  in Say()
61     context_.Say("Format statement must be labeled"_err_en_US); // C1301  in Enter()
66   FormatErrorReporter reporter{context_, reporterCharBlock};  in Enter()
68   switch (context_.GetDefaultKind(TypeCategory::Character)) {  in Enter()
170       context_.Say(parser::FindSourceLocation(spec),  in Enter()
188       context_.Say(parser::FindSourceLocation(spec),  in Enter()
220             const SomeExpr *expr{GetExpr(context_, format)};  in Enter()
227                     context_.defaultKinds().GetDefaultKind(type->category()) &&  in Enter()
231                 context_.Say(format.source,  in Enter()
239                 context_.IsEnabled(  in Enter()
243               if (context_.ShouldWarn(  in Enter()
245                 context_.Say(format.source,  in Enter()
250                     context_.defaultKinds().GetDefaultKind(type->category())) {  in Enter()
251               context_.Say(format.source,  in Enter()
256                 !IsSimplyContiguous(*expr, context_.foldingContext())) {  in Enter()
258               context_.Say(format.source,  in Enter()
274             FormatErrorReporter reporter{context_, reporterCharBlock};  in Enter()
277             switch (context_.GetDefaultKind(TypeCategory::Character)) {  in Enter()
310   const auto *expr{GetExpr(context_, spec)};  in Enter()
316   int defaultKind{context_.GetDefaultKind(TypeCategory::Integer)};  in Enter()
318     context_.Say(  in Enter()
331   if (auto expr{AnalyzeExpr(context_, *var)}) {  in Enter()
555     if (const auto *expr{GetExpr(context_, *var)}) {  in Enter()
557         context_.Say(parser::FindSourceLocation(*var), // C1201  in Enter()
559       } else if (!ExprTypeKindIsDefault(*expr, context_)) {  in Enter()
561         context_.Say(parser::FindSourceLocation(*var), // C1202  in Enter()
586     if (const auto *expr{GetExpr(context_, *x)}) {  in Enter()
588         context_.Say(parser::FindSourceLocation(*x), // C7109  in Enter()
593         context_.Say(parser::FindSourceLocation(*x),  in Enter()
623       context_.Say(parser::FindSourceLocation(spec),  in Enter()
754   CheckForDoVariable(readStmt, context_);  in Leave()
847     context_.Say("Duplicate %s specifier"_err_en_US,  in SetSpecifier()
880       if (context_.languageFeatures().ShouldWarn(  in CheckStringValue()
882         context_.Say(source,  in CheckStringValue()
887       context_.Say(source, "Invalid %s value '%s'"_err_en_US,  in CheckStringValue()
901     context_.Say("%s statement must have a %s specifier"_err_en_US,  in CheckForRequiredSpecifier()
910     context_.Say("%s statement must have a %s specifier"_err_en_US,  in CheckForRequiredSpecifier()
918     context_.Say("If %s appears, %s must also appear"_err_en_US,  in CheckForRequiredSpecifier()
927     context_.Say("If %s appears, %s must also appear"_err_en_US,  in CheckForRequiredSpecifier()
935     context_.Say("If %s appears, %s must also appear"_err_en_US, s,  in CheckForRequiredSpecifier()
943     context_.Say("If %s appears, %s must also appear"_err_en_US, s1, s2);  in CheckForRequiredSpecifier()
949     context_.Say("%s statement must not have a %s specifier"_err_en_US,  in CheckForProhibitedSpecifier()
958     context_.Say("If %s appears, %s must not appear"_err_en_US,  in CheckForProhibitedSpecifier()
967     context_.Say("If %s appears, %s must not appear"_err_en_US,  in CheckForProhibitedSpecifier()
975     context_.Say("If %s appears, %s must not appear"_err_en_US, s,  in CheckForProhibitedSpecifier()
984     if (auto expr{AnalyzeExpr(context_, *var)}) {  in CheckForDefinableVariable()
986       if (auto whyNot{WhyNotModifiable(at, *expr, context_.FindScope(at),  in CheckForDefinableVariable()
989         context_  in CheckForDefinableVariable()
999   CHECK(context_.location());  in CheckForPureSubprogram()
1001       scope{context_.globalScope().FindScope(*context_.location())}) {  in CheckForPureSubprogram()
1003       context_.Say(  in CheckForPureSubprogram()
1017               which, type->GetDerivedTypeSpec(), &context_.FindScope(where))}) {  in CheckForBadIoComponent()
1018         context_.SayWithDecl(*bad, where,  in CheckForBadIoComponent()