Lines Matching defs:statement
105 // Track statement source locations and save messages.
118 // Emit a message associated with the current statement source.
467 // of a type specification that appears in the prefix of a FUNCTION statement
804 // Names that have appeared in an ONLY clause of a USE statement
812 // A rename in a USE statement: local => use
1076 // Declare a statement entity (i.e., an implied DO loop index for
1077 // a DATA statement or an array constructor). If there isn't an explict
1169 // The attribute corresponding to the statement containing an ObjectDecl
1239 // Resolve construct entities and statement entities.
2212 Say("IMPLICIT statement after IMPLICIT NONE or "
2213 "IMPLICIT NONE(TYPE) statement"_err_en_US);
2264 // TODO: for all of these errors, reference previous statement too
2268 Say("More than one IMPLICIT NONE statement"_err_en_US);
2269 Say(*prevImplicitNone_, "Previous IMPLICIT NONE statement"_en_US);
2273 Say("IMPLICIT NONE statement after PARAMETER statement"_err_en_US);
2284 Say("IMPLICIT NONE statement after IMPLICIT statement"_err_en_US);
2302 Say("IMPLICIT NONE(TYPE) after IMPLICIT statement"_err_en_US);
2311 Say("TYPE specified more than once in IMPLICIT NONE statement"_err_en_US);
2315 Say("EXTERNAL specified more than once in IMPLICIT NONE statement"_err_en_US);
2514 // a mutable Scope &, it ignores statement functions, and it fails
2654 // SAVE statement in the inner scope will create a new symbol.
2848 "Dummy argument '%s' may not be used before its ENTRY statement"_err_en_US,
2860 // an attribute statement or type declaration statement.
3847 Say("A PROCEDURE statement is only allowed in a generic interface block"_err_en_US);
4047 // Return false if it is actually an assignment statement.
4064 "Name '%s' from host scope should have a type declaration before its local statement function definition"_port_en_US,
4105 // statement function is deferred to FinishSpecificationPart() so that
4275 std::get<parser::Statement<parser::SubroutineStmt>>(x.t).statement.t};
4283 &std::get<std::optional<parser::LanguageBindingSpec>>(stmt.statement.t));
4287 std::get<parser::Statement<parser::FunctionStmt>>(x.t).statement.t};
4295 std::get<std::optional<parser::Suffix>>(stmt.statement.t)};
4353 // statement.
4390 // Clear the RESULT() name now in case an ENTRY statement in the implicit-part
4543 "'%s' appears more than once as a dummy argument name in this ENTRY statement"_err_en_US,
4552 "'%s' may not appear as a dummy argument name in this ENTRY statement"_err_en_US,
4789 // Warn if external statement previously declared.
4994 // names had appeared on an INTRINSIC attribute statement beforehand.
5092 "Only variable and named common block can be in BIND statement"_err_en_US);
5118 // non-standard extension PARAMETER statement (no parentheses)
5147 // standard-conforming PARAMETER statement (with parentheses)
5171 // Contrary to named constants appearing in a PARAMETER statement,
5173 // attributes defined before they are declared in the enumerator statement,
5301 "INTRINSIC statement for explicitly-typed '%s'"_en_US, name.source);
5346 // Handle a statement that sets an attribute on a list of names.
5392 "%s statement is not allowed in a BLOCK construct"_err_en_US, stmt});
5864 for (auto ¶mName : std::get<std::list<parser::Name>>(stmt.statement.t)) {
6098 "A procedure declaration statement with a binding name may not declare multiple procedures"_err_en_US);
6226 Say("A sequence type may not have a CONTAINS statement"_err_en_US); // C740
6391 const parser::StructureStmt &structStmt{structureStatement.statement};
6421 // Handle any entity declarations on the STRUCTURE statement
6694 "Explicit SAVE of '%s' is redundant due to global SAVE statement"_warn_en_US,
6695 *specPartState_.saveInfo.saveAll, "Global SAVE statement"_en_US)
6708 "'%s' appears as a COMMON block in a SAVE statement but not in"
6709 " a COMMON statement"_err_en_US);
6712 "SAVE statement in BLOCK construct may not contain a"
6755 "'%s' appears as a COMMON block in a BIND statement but not in"
6756 " a COMMON statement"_err_en_US);
7056 "'%s' appeared in a DATA statement before its type was declared under IMPLICIT NONE(TYPE)"_port_en_US,
7423 // statement so that the predicate IsInitialized() will be true
7445 // When a name first appears as an object in a DATA statement, it should
7512 CheckDef(blockStmt.statement.v);
7519 CheckRef(endBlockStmt.statement.v);
7614 "Selector '%s' in SELECT TYPE statement must be "
7630 "Selector '%s' in SELECT TYPE statement must be "
7763 "The associate name '%s' is already used in this associate statement"_err_en_US);
8154 // Any data list item or SIZE= specifier of an I/O data transfer statement
8908 "%s statement may only appear in the specification part of a module"_err_en_US,
8985 &impl->statement.value().u)}) {
9018 .statement};
9044 CollectUseRenames(useStmt.statement.value());
9083 CreateGeneric(std::get<parser::GenericSpec>(y.statement.value().t));
9103 y.statement.u);
9238 if (const auto *statement{std::get_if<
9241 messageHandler().set_currStmtSource(statement->source);
9242 AnalyzeStmtFunctionStmt(statement->statement.value());
9249 // TODO: warn for the case where the EQUIVALENCE statement is in a
9255 // Analyze the bodies of statement functions now that the symbols in this
9270 // Resolve the symbols on the RHS of the statement function.
9281 "Defining expression of statement function '%s' cannot be converted to its result type %s"_err_en_US,
9586 uses.insert(u.statement.value().moduleName.source);
9608 const SourceName &name{moduleStmt.statement.v.source};
9619 "A USE statement referencing module '%s' appears earlier in this compilation unit"_port_en_US,
9884 stmt->statement.t)}) {
9893 stmt->statement.t);
9906 // Data statement objects with implicit derived types are finally