Lines Matching defs:subprogram
365 "A pure subprogram may not initialize a variable"_err_en_US);
368 "A pure subprogram may not have a variable with the SAVE attribute"_err_en_US);
374 "A pure subprogram may not have a variable with the VOLATILE attribute"_err_en_US);
381 "A dummy procedure of a pure subprogram must be pure"_err_en_US);
487 "Automatic data object '%s' may not appear in a BLOCK DATA subprogram"_err_en_US,
902 "An ALLOCATABLE variable may not appear in a BLOCK DATA subprogram"_err_en_US);
917 "'%s' may not be a local variable in a pure subprogram"_err_en_US,
939 "'%s' should not have the SAVE attribute or initialization in a device subprogram"_warn_en_US,
944 "Pointer '%s' may not be associated in a device subprogram"_warn_en_US,
955 "Dummy argument '%s' may not have ATTRIBUTES(%s) in a device subprogram"_warn_en_US,
976 "Object '%s' with ATTRIBUTES(CONSTANT) may not be declared in a host subprogram"_err_en_US,
1009 "Object '%s' with ATTRIBUTES(PINNED) may not be declared in a device subprogram"_warn_en_US,
1028 "Object '%s' with ATTRIBUTES(SHARED) must be declared in a device subprogram"_err_en_US,
1038 "Object '%s' with ATTRIBUTES(UNIFIED) must be declared in a host subprogram"_err_en_US,
1092 "ATTRIBUTES(%s) may apply only to module, host subprogram, block, or device subprogram data"_err_en_US,
1272 "An ELEMENTAL subprogram may not have a dummy procedure"_err_en_US);
1321 // When a module subprogram has the MODULE prefix the following must match
1391 // any errors that analysis might expose, in case this subprogram hasn't
1405 const Symbol *subprogram{entryScope->symbol()};
1407 if (subprogram) {
1408 subprogramDetails = subprogram->detailsIf<SubprogramDetails>();
1412 error = "ENTRY may not appear in an internal subprogram"_err_en_US;
1429 if (subprogram) {
1430 msg->Attach(subprogram->name(), "Containing subprogram"_en_US);
1515 "A kernel subprogram may not be RECURSIVE, PURE, or ELEMENTAL"_err_en_US);
1518 // CUDA device subprogram checks
1521 "A device subprogram may not be an internal subprogram"_err_en_US);
1536 "'%s' may not be an internal procedure of CUDA device subprogram '%s'"_err_en_US,
1539 "Containing CUDA device subprogram"_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,
1581 "The global subprogram '%s' should not be referenced via the implicit interface '%s'"_warn_en_US,
2348 const auto *subprogram{interface->detailsIf<SubprogramDetails>()};
2349 if (!subprogram) {
2356 const auto &dummyArgs{subprogram->dummyArgs()};
2610 kind = "BLOCK DATA subprogram";
2735 // BLOCK DATA, but so long as the subprogram contains no executable
2747 "'%s' may not appear in a BLOCK DATA subprogram"_err_en_US,
3226 "A subprogram interface with the BIND attribute may not have an alternate return argument"_err_en_US);
3622 if (const auto *subprogram{symbol.detailsIf<SubprogramDetails>()};
3623 subprogram &&
3626 !subprogram->bindName() && !subprogram->isInterface()) {
3628 subprogram->moduleInterface() ? *subprogram->moduleInterface() : symbol
3669 "Module subprogram '%s' has %d args but the corresponding interface"
3678 ? "Module subprogram '%s' has NON_RECURSIVE prefix but"
3680 : "Module subprogram '%s' does not have NON_RECURSIVE prefix but "
3689 "Module subprogram '%s' does not have a binding label but the"
3693 "Module subprogram '%s' has a binding label but the"
3697 "Module subprogram '%s' has binding label '%s' but the corresponding"
3709 "Module subprogram '%s' and its corresponding interface body are not both PURE"_err_en_US);
3714 "Module subprogram '%s' and its corresponding interface body are not both ELEMENTAL"_err_en_US);
3719 "Module subprogram '%s' and its corresponding interface body are not both BIND(C)"_err_en_US);