Lines Matching +defs:n +defs:digits
638 parser::Integer<parser::Constant<parser::Name>>> &n) {
639 if (MaybeExpr ie{Analyze(n)}) {
661 const char *p{digits.begin()};
672 analyzer.Warn(LanguageFeature::BigIntLiterals, digits,
692 analyzer.Warn(LanguageFeature::BigIntLiterals, digits,
705 parser::CharBlock digits;
719 auto digits{std::get<parser::CharBlock>(x.t)};
721 *this, digits, kind, isDefaultKind, isNegated})}) {
724 Say(digits,
728 Say(digits, "Integer literal is too large for %s(KIND=%d)"_err_en_US,
974 MaybeExpr ExpressionAnalyzer::Analyze(const parser::Name &n) {
975 auto restorer{GetContextualMessages().SetLocation(n.source)};
976 if (std::optional<int> kind{IsImpliedDo(n.source)}) {
978 *kind, AsExpr(ImpliedDoIndex{n.source})));
980 if (context_.HasError(n.symbol)) { // includes case of no symbol
983 const Symbol &ultimate{n.symbol->GetUltimate()};
1010 if (n.symbol->attrs().test(semantics::Attr::VOLATILE)) {
1012 context_.FindScope(n.source))}) {
1013 SayAt(n,
1015 n.source, DEREF(pure->symbol()).name());
1016 n.symbol->attrs().reset(semantics::Attr::VOLATILE);
1021 ResolveAssociations(*n.symbol))) { // C1002, C1014, C1231
1023 SayAt(n,
1025 n.source),
1026 *n.symbol);
1028 return Designate(DataRef{*n.symbol});
1033 MaybeExpr ExpressionAnalyzer::Analyze(const parser::NamedConstant &n) {
1034 auto restorer{GetContextualMessages().SetLocation(n.v.source)};
1035 if (MaybeExpr value{Analyze(n.v)}) {
1040 Say(n.v.source, "must be a constant"_err_en_US); // C718
1045 MaybeExpr ExpressionAnalyzer::Analyze(const parser::NullInit &n) {
1047 if (MaybeExpr value{Analyze(n.v.value())}) {
1208 int nameLen{x.source.end()[-1] == 'n' ? 3 /*LEN*/ : 4 /*KIND*/};
2837 for (const std::string &n : GetAllNames(context_, symbol.name())) {
2838 if (const Symbol *outer{symbol.owner().parent().FindSymbol(n)}) {
4698 << '\n';
4701 os << "- error\n";
4703 os << "- assumed type: " << symbol->name().ToString() << '\n';
4705 expr->AsFortran(os << "- expr: ") << '\n';