Lines Matching +defs:d +defs:digits
276 Say("Reference to rank-%d object '%s' has %d subscripts"_err_en_US,
396 "Empty array dimension %d should not be subscripted as an element or non-empty array section"_err_en_US,
434 "Subscript %jd is less than lower bound %jd for dimension %d of array"_err_en_US;
438 "Subscript %jd is greater than upper bound %jd for dimension %d of array"_err_en_US;
467 Say("Reference to whole rank-%d component '%s' of rank-%d array of derived type is not allowed"_err_en_US,
485 Say("Subscripts of component '%s' of rank-%d derived type array have rank %d but must all be scalar"_err_en_US,
567 const parser::Designator &d) {
568 auto &mutate{const_cast<parser::Designator &>(d)};
579 if (MaybeExpr substringExpr{Analyze(d)}) {
592 MaybeExpr ExpressionAnalyzer::Analyze(const parser::Designator &d) {
593 auto restorer{GetContextualMessages().SetLocation(d.source)};
594 if (auto substringInquiry{FixMisparsedSubstring(d)}) {
599 MaybeExpr result{Analyze(d.u)};
661 const char *p{digits.begin()};
672 analyzer.Warn(LanguageFeature::BigIntLiterals, digits,
673 "negated maximum INTEGER(KIND=%d) literal"_port_en_US, T::kind);
681 "Unsigned literal too large for UNSIGNED(KIND=%d); truncated"_warn_en_US,
692 analyzer.Warn(LanguageFeature::BigIntLiterals, digits,
693 "Integer literal is too large for default %s(KIND=%d); "
694 "assuming %s(KIND=%d)"_port_en_US,
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,
815 case 'd':
846 Say("Unsupported REAL(KIND=%d)"_err_en_US, kind);
935 Say("unsupported LOGICAL(KIND=%d)"_err_en_US, kind); // C728
1094 Say("substring bound expression has rank %d"_err_en_US, expr->Rank());
1224 Say("Subscript expression has rank %d greater than 1"_err_en_US,
1510 Say("'%s' has corank %d, but coindexed reference has %d cosubscripts"_err_en_US,
2225 "Rank-%d array value is not compatible with scalar component '%s'"_err_en_US,
2688 int d{GetMatchingDistance(features, dummy, actual)};
2689 if (d == cudaInfMatchingValue)
2690 return d;
2691 distance += d;
2787 int d{ComputeCudaMatchingDistance(
2789 if (d != crtMatchingDistance) {
2790 if (d > crtMatchingDistance) {
4154 Say(at, "Must have default kind(%d) of %s type, but is %s"_err_en_US,
4510 "Operands of %s are not conformable; have rank %d and rank %d"_err_en_US,
4862 "rank %d array of %s"_err_en_US,
4874 "rank %d array of %s and rank %d array of %s"_err_en_US,
4879 "scalar %s and rank %d array of %s"_err_en_US,
4883 "rank %d array of %s and scalar %s"_err_en_US,