Lines Matching defs:procedure

35         "Keyword '%s=' may not appear in a reference to a procedure with an implicit interface"_err_en_US,
92               "Non-intrinsic ELEMENTAL procedure '%s' may not be passed as an actual argument"_err_en_US,
335     const characteristics::Procedure &procedure,
488             "Actual argument associated with TYPE(*) %s may not have type-bound procedure '%s'"_err_en_US,
991     if (procedure.cudaSubprogramAttrs.value_or(
1033       dummy.IsPassedByDescriptor(procedure.IsBindC())) {
1054   const characteristics::Procedure &interface { dummy.procedure.value() };
1091           characteristics::Procedure &argInterface{argProc->procedure.value()};
1102                   "Non-intrinsic ELEMENTAL procedure '%s' may not be passed as an actual argument"_err_en_US,
1119                     "Actual procedure argument has interface incompatible with %s: %s"_err_en_US,
1124                     "Actual procedure argument for %s of a PURE procedure must have an explicit interface"_err_en_US,
1129                     "Actual procedure argument has an implicit interface which is not known to be compatible with %s which has an explicit interface"_warn_en_US,
1135                   "Actual procedure argument has possible interface incompatibility with %s: %s"_warn_en_US,
1141                   "Actual argument associated with procedure %s is a function but must be a subroutine"_err_en_US,
1149                       "Actual argument function associated with procedure %s is not compatible: %s"_err_en_US,
1154                     "Actual argument associated with procedure %s is a subroutine but must be a function"_err_en_US,
1161               "Actual argument associated with procedure %s is not a procedure"_err_en_US,
1169               "Actual argument associated with procedure %s is a null pointer"_err_en_US,
1174             "Actual argument associated with procedure %s is typeless"_err_en_US,
1184               "Actual argument associated with procedure pointer %s may not be INTENT(IN)"_err_en_US,
1189         // 15.5.2.9(5) -- dummy procedure POINTER
1192             "Actual argument associated with procedure pointer %s must be a pointer unless INTENT(IN)"_err_en_US,
1198         "Assumed-type argument may not be forwarded as procedure %s"_err_en_US,
1351         "Too many actual arguments (%zd) passed to procedure that expects only %zd"_err_en_US,
1364             "Argument keyword '%s=' appears on more than one effective argument in this procedure reference"_err_en_US,
1385                 "Keyword argument '%s=' has already been specified positionally (#%d) in this procedure reference"_err_en_US,
1398           "Argument keyword '%s=' is not recognized for this procedure reference"_err_en_US,
1404 // 15.8.1(3) -- In a reference to an elemental procedure, if any argument is an
1407 // ELEMENTAL procedure must conform.
1429                 "Whole assumed-size array '%s' may not be used as an argument to an elemental procedure"_err_en_US,
1453                 "In an elemental procedure reference with at least one array argument, actual argument %s that corresponds to an INTENT(OUT) or INTENT(INOUT) dummy argument must be an array"_err_en_US,
1517               !IsBareNullPointer(pointerExpr)) { // POINTER= is a procedure
1563                     "POINTER= argument '%s' is a procedure pointer but the TARGET= argument '%s' is not a procedure or procedure pointer"_err_en_US,
1851           "OPERATION= argument of REDUCE() may not have dummy procedure arguments"_err_en_US);
1864               "Arguments of OPERATION= procedure of REDUCE() must be both scalar of the same type as ARRAY=, and neither allocatable, pointer, polymorphic, nor optional"_err_en_US);
1875               "If either argument of the OPERATION= procedure of REDUCE() has the ASYNCHRONOUS, TARGET, or VALUE attribute, both must have that attribute"_err_en_US);
2029             "an actual argument in this procedure reference"_err_en_US,
2033                      "associated with an actual argument in this procedure "
2197                   "If the procedure's interface were explicit, this reference would be in error"_warn_en_US)}) {