Lines Matching defs:subprogram

875   // Add to generic the symbol for the subprogram with the same name
927   // Edits an existing symbol created for earlier calls to a subprogram or ENTRY
931   // Create a subprogram symbol in the current scope and push a new scope.
938   void CreateEntry(const parser::EntryStmt &stmt, Symbol &subprogram);
3559       return; // nothing to do; used subprogram is local's specific
4124       if (const Symbol * subprogram{InclusiveScope().symbol()}) {
4125         msg.Attach(subprogram->name(), "Containing subprogram"_en_US);
4422             "'%s' appears more than once as a dummy argument name in this subprogram"_err_en_US,
4428           "'%s' may not appear as a dummy argument name in this subprogram"_err_en_US);
4438     const parser::EntryStmt &stmt, Symbol &subprogram) {
4441   Symbol::Flag subpFlag{subprogram.test(Symbol::Flag::Function)
4651 // A subprogram declared with MODULE PROCEDURE
4659     // Convert the module procedure's interface into a subprogram.
4664     // Copy the interface into a new subprogram scope.
4670     auto &subprogram{symbol->get<SubprogramDetails>()};
4671     if (const auto *name{subprogram.bindName()}) {
4683 // A subprogram or interface declared with SUBROUTINE or FUNCTION
4779     // There's a symbol created for previous calls to this subprogram or
4839       // Create this new top-level subprogram with a binding label
4901 // If name is a generic, return specific subprogram with the same name.
7738               "The construct name '%s' should be distinct at the subprogram level"_port_en_US)
8208       Say("IMPORT is not allowed in an external subprogram scoping unit"_err_en_US);
8213     Say("IMPORT is not allowed in a BLOCK DATA subprogram"_err_en_US);
8822 // part of a subprogram to catch calls to dummy procedures that are part
8823 // of the subprogram's interface, and to mark as procedures any symbols
9538               name, *symbol, "'%s' must be local to this subprogram"_err_en_US);
9839         // subprogram with the same name, create the generic's symbol
9842         // of raising a bogus error due a conflict with the subprogram.
10120     SemanticsContext &context, const Symbol &subprogram) {
10130   const auto &details{subprogram.get<SubprogramNameDetails>()};
10132   const Scope &moduleScope{subprogram.owner()};