Lines Matching defs:procedure
193 // Collection of module procedure symbols with non-BIND(C)
221 const Procedure &procedure;
359 // are not pertinent to the characteristics of the procedure.
360 // Restrictions on entities in pure procedure interfaces don't need
377 // The intrinsic procedure C_FUNLOC() gets a pass on this check.
381 "A dummy procedure of a pure subprogram must be pure"_err_en_US);
461 "A dummy procedure pointer should not have assumed-length CHARACTER(*) result type"_port_en_US);
555 "The entity '%s' with an explicit SAVE attribute must be a variable, procedure pointer, or COMMON block"_err_en_US,
592 "VALUE attribute may not apply to an OPTIONAL in a BIND(C) procedure"_err_en_US);
596 "VALUE attribute may not apply to an array in a BIND(C) procedure"_err_en_US);
813 "!DIR$ IGNORE_TKR may apply only in an interface or a module procedure"_err_en_US);
818 "!DIR$ IGNORE_TKR(R) may not apply in an ELEMENTAL procedure"_err_en_US);
851 "A dummy argument of an ELEMENTAL procedure must be scalar"_err_en_US);
855 "A dummy argument of an ELEMENTAL procedure may not be ALLOCATABLE"_err_en_US);
859 "A dummy argument of an ELEMENTAL procedure may not be a coarray"_err_en_US);
863 "A dummy argument of an ELEMENTAL procedure may not be a POINTER"_err_en_US);
868 "A dummy argument of an ELEMENTAL procedure must have an INTENT() or VALUE attribute"_err_en_US);
1130 // C1519 - must be nonelemental external or module procedure,
1140 "Intrinsic procedure '%s' is not an unrestricted specific "
1141 "intrinsic permitted for use as the initializer for procedure "
1151 "Procedure pointer '%s' initializer '%s' is neither an external nor a module procedure"_err_en_US,
1156 "elemental procedure '%s'"_err_en_US,
1267 messages_.Say("A dummy procedure without the POINTER attribute"
1272 "An ELEMENTAL subprogram may not have a dummy procedure"_err_en_US);
1283 "A dummy procedure should not have an ELEMENTAL intrinsic as its interface"_port_en_US);
1285 messages_.Say("A dummy procedure may not be ELEMENTAL"_err_en_US);
1296 "Intrinsic procedure '%s' is not an unrestricted specific "
1298 "to procedure pointer '%s'"_err_en_US,
1322 // with the corresponding separate module procedure interface body:
1390 // Evaluate a procedure definition's characteristics to flush out
1483 messages_.Say("A dummy procedure may not be ELEMENTAL"_err_en_US);
1536 "'%s' may not be an internal procedure of CUDA device subprogram '%s'"_err_en_US,
1563 "The global entity '%s' corresponding to the local procedure '%s' is not a callable subprogram"_warn_en_US,
1573 "The global subprogram '%s' is not compatible with its local procedure declaration (%s)"_warn_en_US,
1577 // TODO: This should be a hard error if the procedure has
1579 // procedure pointer target or passed as an actual argument).
1646 "Non-ABSTRACT extension of ABSTRACT derived type '%s' lacks a binding for DEFERRED procedure '%s'"_err_en_US,
1697 "FINAL subroutine '%s' of derived type '%s' must be a module procedure"_err_en_US,
1867 "Generic interface '%s' must not use abstract interface '%s' as a specific procedure"_err_en_US,
1881 "Specific procedure '%s' of generic interface '%s' should not be INTRINSIC"_port_en_US,
1899 "Specific procedure '%s' of generic interface '%s' may not be a statement function"_err_en_US,
1905 if (const Procedure *procedure{Characterize(specific)}) {
1906 if (procedure->HasExplicitInterface()) {
1907 helper.Add(generic, kind, specific, *procedure);
1910 "Specific procedure '%s' of generic interface '%s' must have an explicit interface"_err_en_US,
2000 // Check if this procedure can be used for defined operators (see 15.4.3.4.2).
2014 msg = "%s procedure '%s' may not have NOPASS attribute"_err_en_US;
2016 msg = "%s procedure '%s' must be a function"_err_en_US;
2131 // Check if this procedure can be used for defined assignment (see 15.4.3.4.3).
2139 msg = "Defined assignment procedure '%s' may not have"
2142 msg = "Defined assignment procedure '%s' must be a subroutine"_err_en_US;
2332 // C757 constraints on procedure pointer components
2387 "'%s' is not a dummy argument of procedure interface '%s'"_err_en_US,
2394 msg = "Passed-object dummy argument '%s' of procedure '%s'"
2397 msg = "Passed-object dummy argument '%s' of procedure '%s'"
2400 msg = "Passed-object dummy argument '%s' of procedure '%s'"
2403 msg = "Passed-object dummy argument '%s' of procedure '%s'"
2406 msg = "Passed-object dummy argument '%s' of procedure '%s'"
2421 "Passed-object dummy argument '%s' of procedure '%s'"
2429 ? "Passed-object dummy argument '%s' of procedure '%s'"
2431 : "Passed-object dummy argument '%s' of procedure '%s'"
2439 "Passed-object dummy argument '%s' of procedure '%s'"
2460 "Type-bound procedure '%s' may not be both DEFERRED and NON_OVERRIDABLE"_err_en_US,
2468 "Intrinsic procedure '%s' is not a specific intrinsic permitted for use in the definition of binding '%s'"_err_en_US,
2488 "An overridden pure type-bound procedure binding must also be pure"_err_en_US);
2494 "A type-bound procedure and its override must both, or neither, be ELEMENTAL"_err_en_US);
2501 ? "A NOPASS type-bound procedure may not override a passed-argument procedure"_err_en_US
2502 : "A passed-argument type-bound procedure may not override a NOPASS procedure"_err_en_US);
2510 "A NOPASS type-bound procedure and its override must have identical interfaces"_err_en_US);
2519 "A type-bound procedure and its override must use the same PASS argument"_err_en_US);
2523 "A type-bound procedure and its override must have compatible interfaces"_err_en_US);
2535 "A PRIVATE procedure may not override a PUBLIC procedure"_err_en_US);
2540 "A PRIVATE procedure may not override an accessible procedure"_err_en_US);
2546 "A type-bound procedure binding may not have the same name as a parent component"_err_en_US);
2898 // will be used in LLVM IR for an external procedure declared without
2903 "%s procedure assembly name conflicts with %s procedure assembly name"_err_en_US,
2964 "An interoperable derived type cannot have a type bound procedure"_err_en_US);
3127 "An interoperable procedure with an OPTIONAL dummy argument might not be portable"_port_en_US);
3185 "An interface name with the BIND attribute must appear if the BIND attribute appears in a procedure declaration"_err_en_US);
3189 "An interoperable procedure should have an interface"_port_en_US);
3195 "An interoperable procedure must have an interoperable interface"_err_en_US));
3198 "An interoperable procedure should have an interface with the BIND attribute"_warn_en_US);
3210 "A dummy procedure of an interoperable procedure should be BIND(C)"_warn_en_US);
3252 // procedure interface) but is not itself BIND(C).
3273 "A procedure pointer may not have a BIND attribute with a name"_err_en_US);
3284 "An internal or dummy procedure may not have a BIND(C,NAME=) binding label"_err_en_US);
3348 "Derived type '%s' has conflicting type-bound input/output procedure '%s'"_err_en_US,
3365 "Dummy argument '%s' of a defined input/output procedure must be %s when the derived type is %s"_err_en_US,
3371 "Dummy argument '%s' of a defined input/output procedure must have a"
3388 "Dummy argument '%s' of a defined input/output procedure"
3396 "Dummy argument '%s' of a defined input/output procedure"
3440 "Generic interface '%s' with explicit intrinsic %s of the same name may not have specific procedure '%s' that is a %s"_err_en_US,
3474 "Dummy argument '%s' of a defined input/output procedure"
3490 "Dummy argument '%s' of a defined input/output procedure must be"
3506 "Defined input/output procedure '%s' must have"
3519 "Dummy argument '%s' of a defined input/output procedure"
3526 "Dummy argument '%s' of a defined input/output procedure may not have"
3540 messages_.Say("Defined input/output procedure '%s' may not have NOPASS "
3602 // procedure pointer returning allocatable or pointer: ok
3641 "Module procedure '%s' in '%s' has multiple definitions"_err_en_US,
3777 "Dummy argument '%s' is a procedure; the corresponding"
3813 "Dummy procedure '%s' is not compatible with the corresponding argument in the interface body: %s"_err_en_US,
3819 "Dummy procedure '%s' does not exactly match the corresponding argument in the interface body"_warn_en_US,
3887 const Symbol &ultimateSpecific, const Procedure &procedure) {
3890 &ultimateSpecific, ProcedureInfo{kind, procedure});
3909 context_.languageFeatures(), proc, iter2->second.procedure)};