Lines Matching defs:procedure

513   // The enclosing host procedure if current scope is in an internal procedure
628 // procedure pointer with same name as a generic
1115 // Declare an object or procedure entity.
1139 "Declaration of '%s' conflicts with its use as module procedure"_err_en_US,
1140 symbol, "Module procedure definition"_en_US);
1143 "Declaration of '%s' conflicts with its use as internal procedure"_err_en_US,
1144 symbol, "Internal procedure definition"_en_US);
1151 name, symbol, "'%s' is already declared as a procedure"_err_en_US);
1156 "'%s' may not be a procedure as it is in a COMMON block"_err_en_US);
1809 // Kind of procedure we are expecting to see in a ProcedureDesignator
2472 message.Attach(*usedAsProc, "Referenced as a procedure"_en_US);
2807 // Ensure that the symbol for an intrinsic procedure is marked with
2889 // Don't turn function result into a procedure pointer unless both
3332 // We are use-associating a generic that either shadows a procedure
3334 // Local references that might be made to the procedure pointer should
3395 // or with the name of a non-generic procedure (which should be one of the
3404 // - anything other than a derived type, non-generic procedure, or
3405 // generic procedure being combined with something other than an
3521 // Both are external interfaces, perhaps to the same procedure
3530 // same procedure interface defined identically in two modules?
3611 // Ensure that a use-associated specific procedure that is a procedure
3654 // with the combined derived type &/or non-generic procedure.
3914 // procedure that is recorded in the GenericDetails below must be *symbol,
3915 // not the specific procedure shadowed by a generic, because that specific
3916 // procedure may be a symbol from another module and its name unavailable
3929 error = "'%s' is not a module procedure"_err_en_US;
3939 error = "'%s' is not a procedure"_err_en_US;
3943 "'%s' is not a procedure that can appear in a generic interface"_err_en_US;
3956 // When a specific procedure is a USE association, that association
3998 "'%s' should not be the name of both a generic interface and a procedure unless it is a specific procedure of the generic"_warn_en_US,
4585 "ENTRY '%s' may not appear in a separate module procedure"_err_en_US,
4645 Say(name, "'%s' was not declared a separate module procedure"_err_en_US);
4659 // Convert the module procedure's interface into a subprogram.
4692 "'%s' is a MODULE procedure which must be declared within a "
4772 // procedure instead if it has one.
4912 // found generic, want specific procedure
4918 // already shadowing another procedure. In some cases, the shadowed
4919 // procedure is about to be replaced.
4922 // The shadowed procedure is a separate module procedure that is
4928 // The shadowed procedure was from an enclosing scope and will be
4947 // A specific procedure with the same name as a derived type
5280 Say(name.source, "'%s' is not a known intrinsic procedure"_err_en_US);
5438 "The interface for procedure '%s' is recursively defined"_err_en_US,
5459 // procedure pointer with same name as a generic
5478 "The interface for procedure '%s' has already been declared"_err_en_US);
6098 "A procedure declaration statement with a binding name may not declare multiple procedures"_err_en_US);
6239 Symbol *procedure{FindSymbol(procedureName)};
6240 if (!procedure) {
6241 procedure = NoteInterfaceName(procedureName);
6243 if (procedure) {
6244 const Symbol &bindTo{BypassGeneric(*procedure)};
6263 const Symbol &procedure{BypassGeneric(ultimate)};
6264 if (&procedure != &ultimate) {
6265 details->ReplaceSymbol(procedure);
6267 if (!CanBeTypeBoundProc(procedure)) {
6271 "module procedure or an external procedure with "
6276 "'%s' must be either an accessible module procedure "
6277 "or an external procedure with an explicit interface"_err_en_US,
6353 "Type bound generic procedure '%s' may not have the same name as a non-generic symbol inherited from an ancestor type"_err_en_US)
6857 // are acceptable as procedure interfaces. The presence of the
7158 "'%s' must be an abstract interface or a procedure with an explicit interface"_err_en_US,
7164 // Create a symbol for a type parameter, component, or procedure binding in
7176 "Type parameter, component, or procedure binding '%s'"
7182 // Apply binding-private-stmt if present and this is a procedure binding
7801 // BOZ literals, procedure designators, &c. are not acceptable
8355 // A specification expression may refer to a symbol in the host procedure that
8359 // either it is implicitly declared in the host procedure or it is an error.
8613 "Procedure pointer '%s' must be initialized with a procedure name or NULL()"_err_en_US);
8648 "'%s' is not a procedure pointer but is initialized like one"_err_en_US);
8705 // or the result of an inquiry intrinsic function or generic procedure.
8788 // here as procedure-designators because this means the related
8794 // this is a symbol from a host procedure, a symbol with HostAssocDetails
8797 // created for symbols used associated in the host procedure.
8801 "Use of '%s' as a procedure conflicts with its implicit definition"_err_en_US);
8804 "Use of '%s' as a procedure conflicts with its declaration"_err_en_US);
8815 "'%s' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)"_err_en_US);
9221 // Propagate BIND(C) attribute to procedure entities from their interfaces,
9250 // procedure declaration in an interface block
9373 // procedure, create a host associated symbol.
9381 // Can also reference a global external procedure here
9392 // Unknown target of procedure pointer must be an external procedure
9754 // Check the current procedure is a device procedure to apply implicit
10011 // initializers of components, and non-deferred type-bound procedure
10118 // in a specification expression in a sibling procedure.