Lines Matching defs:procedure
209 // Wraps a data reference in a typed Designator<>, and a procedure
210 // or procedure pointer reference in a ProcedureDesignator.
217 Say("Abstract procedure interface '%s' may not be used as a designator"_err_en_US,
229 Say("'%s' is not a specific procedure"_err_en_US, last.name());
231 // For procedure pointers, retain associations so that data accesses
245 Say("'%s' is not an unrestricted specific intrinsic procedure"_err_en_US,
1708 } else { // procedure name, &c.
2188 "A NULL procedure pointer may not be used as the value for component '%s'"_err_en_US,
2207 "The externally visible object '%s' may not be used in a pure procedure as the value for component '%s' which has the pointer component '%s'"_err_en_US,
2345 // for a type-bound procedure reference that is not NOPASS. Adds an
2378 // Return the compile-time resolution of a procedure binding, if possible.
2403 Say(sc.component.source, "'%s' is not a procedure"_err_en_US,
2472 "Base of NOPASS type-bound procedure reference should be scalar"_port_en_US),
2476 "Base of procedure component reference must be scalar"_err_en_US);
2508 "Base of procedure component reference is not a derived-type object"_err_en_US);
2545 // or optional dummy procedure.
2553 const auto &dummyResult{dummy.procedure.value().functionResult};
2575 // Are the actual arguments compatible with the dummy arguments of procedure?
2577 const characteristics::Procedure &procedure, const ActualArguments &actuals,
2579 bool isElemental{procedure.IsElemental()};
2580 const auto &dummies{procedure.dummyArguments};
2680 const characteristics::Procedure &procedure,
2682 const auto &dummies{procedure.dummyArguments};
2708 // procedure. Resolve its names now so that its interface
2739 // Resolve a call to a generic procedure with given actual arguments.
2740 // adjustActuals is called on procedure bindings to handle pass arg.
2771 if (std::optional<characteristics::Procedure> procedure{
2781 if (semantics::CheckInterfaceForGeneric(*procedure, localActuals,
2784 *procedure, localActuals, foldingContext_)) {
2785 if ((procedure->IsElemental() && elemental) ||
2786 (!procedure->IsElemental() && nonElemental)) {
2788 context_.languageFeatures(), *procedure, localActuals)};
2794 // specific. Let it go thourgh so the current procedure is picked.
2797 // argument to a generic procedure if the specific procedure
2799 // Underspecified external procedure actual arguments can
2804 if (!procedure->IsElemental()) {
2811 context_.languageFeatures(), *procedure, localActuals);
2870 // Create a renaming USE of the specific procedure.
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
2944 // re-resolve name to the specific procedure
2949 Say("Abstract procedure interface '%s' may not be referenced"_err_en_US,
2984 Say(name.source, "'%s' is not a callable procedure"_err_en_US,
3003 const auto &procedure{call.specificIntrinsic.characteristics.value()};
3004 if (const auto &result{procedure.functionResult}) {
3031 msg = Say("NON_RECURSIVE procedure '%s' cannot call itself"_err_en_US,
3201 Say("'%s' is called like a function but is not a procedure"_err_en_US,
3392 "Reference to the procedure '%s' has an implicit interface that is distinct from another reference: %s"_warn_en_US,
3414 "References to the procedure '%s' require an explicit interface"_err_en_US,
3465 Say("A function reference that returns a procedure "
3823 // Note that expression in AssocEntityDetails cannot be a procedure
3862 // constructors; we have to try generic procedure resolution
4190 // Not a procedure pointer, so type and shape are known.
4246 "Assignment to procedure '%s' is not allowed"_err_en_US,