Lines Matching defs:specific

213   const Symbol &specific{BypassGeneric(last)};
214   const Symbol &symbol{specific.GetUltimate()};
229         Say("'%s' is not a specific procedure"_err_en_US, last.name());
230       } else if (IsProcedurePointer(specific)) {
233         return Expr<SomeType>{ProcedureDesignator{specific}};
245       Say("'%s' is not an unrestricted specific intrinsic procedure"_err_en_US,
2426           // re-resolve the name to the specific binding
2745   const Symbol *elemental{nullptr}; // matching elemental specific proc
2746   const Symbol *nonElemental{nullptr}; // matching non-elemental specific
2767       const Symbol *specific{ResolveForward(specific1)};
2768       if (!specific) {
2773                   ProcedureDesignator{*specific}, context_.foldingContext(),
2776         if (specific->has<semantics::ProcBindingDetails>()) {
2777           if (!adjustActuals.value()(*specific, localActuals)) {
2794               // specific. Let it go thourgh so the current procedure is picked.
2797               // argument to a generic procedure if the specific procedure
2806             nonElemental = specific;
2808             elemental = specific;
2851     const Symbol &originalGeneric, const Symbol &specific) {
2854     return AccessSpecific(hosted->symbol(), specific);
2858     if (auto iter{scope.find(specific.name())}; iter != scope.end()) {
2864         if (&usedSymbol == &specific ||
2865             (usedGeneric && usedGeneric->specific() == &specific)) {
2866           return specific;
2870     // Create a renaming USE of the specific procedure.
2873         specific.owner().GetName().value().ToString() + "$" +
2874         specific.name().ToString())};
2876                 .try_emplace(rename, specific.attrs(),
2877                     semantics::UseDetails{rename, specific})
2880     return specific;
2887           ? "The actual arguments to the generic procedure '%s' matched multiple specific procedures, perhaps due to use of NULL() without MOLD= or an actual procedure with an implicit interface"_err_en_US
2889           ? "No specific procedure of generic operator '%s' matches the actual arguments"_err_en_US
2891           ? "No specific subroutine of generic '%s' matches the actual arguments"_err_en_US
2892           : "No specific function of generic '%s' matches the actual arguments"_err_en_US,
2944       // re-resolve name to the specific procedure
3451             nullptr /*not specific intrinsic*/);
3636 // If the actuals match one of the specific procedures, return a function ref.
4272   // TODO: C1534: Don't allow a "restricted" specific intrinsic to be passed.