267     const DummyDataObject &actual, std::string *whyNot) const {  in IsCompatibleWith()
269     if (whyNot) {  in IsCompatibleWith()
270       *whyNot = "incompatible dummy data object shapes";  in IsCompatibleWith()
275     if (whyNot) {  in IsCompatibleWith()
276       *whyNot = "incompatible dummy data object types: "s +  in IsCompatibleWith()
282     if (whyNot) {  in IsCompatibleWith()
283       *whyNot = "incompatible dummy data object attributes";  in IsCompatibleWith()
288     if (whyNot) {  in IsCompatibleWith()
289       *whyNot = "incompatible dummy data object intents";  in IsCompatibleWith()
294     if (whyNot) {  in IsCompatibleWith()
295       *whyNot = "incompatible dummy data object coshapes";  in IsCompatibleWith()
385     const DummyProcedure &actual, std::string *whyNot) const {  in IsCompatibleWith()
387     if (whyNot) {  in IsCompatibleWith()
388       *whyNot = "incompatible dummy procedure attributes";  in IsCompatibleWith()
393     if (whyNot) {  in IsCompatibleWith()
394       *whyNot = "incompatible dummy procedure intents";  in IsCompatibleWith()
398   if (!procedure.value().IsCompatibleWith(actual.procedure.value(), whyNot)) {  in IsCompatibleWith()
399     if (whyNot) {  in IsCompatibleWith()
400       *whyNot = "incompatible dummy procedure interfaces: "s + *whyNot;  in IsCompatibleWith()
622     const DummyArgument &actual, std::string *whyNot) const {  in IsCompatibleWith()
625       return ifaceData->IsCompatibleWith(*actualData, whyNot);  in IsCompatibleWith()
627     if (whyNot) {  in IsCompatibleWith()
628       *whyNot = "one dummy argument is an object, the other is not";  in IsCompatibleWith()
632       return ifaceProc->IsCompatibleWith(*actualProc, whyNot);  in IsCompatibleWith()
634     if (whyNot) {  in IsCompatibleWith()
635       *whyNot = "one dummy argument is a procedure, the other is not";  in IsCompatibleWith()
642     if (whyNot) {  in IsCompatibleWith()
643       *whyNot = "one dummy argument is an alternate return, the other is not";  in IsCompatibleWith()
868     const FunctionResult &actual, std::string *whyNot) const {  in IsCompatibleWith()
874     if (whyNot) {  in IsCompatibleWith()
875       *whyNot = "function results have incompatible attributes";  in IsCompatibleWith()
880         if (whyNot) {  in IsCompatibleWith()
881           *whyNot = "function results have distinct ranks";  in IsCompatibleWith()
885         if (whyNot) {  in IsCompatibleWith()
886           *whyNot = "function results have distinct extents";  in IsCompatibleWith()
890         if (whyNot) {  in IsCompatibleWith()
891           *whyNot = "function results have incompatible types: "s +  in IsCompatibleWith()
899       if (whyNot) {  in IsCompatibleWith()
900         *whyNot = "function result type and shape are not known";  in IsCompatibleWith()
908       if (ifaceProc->value().IsCompatibleWith(actualProc->value(), whyNot)) {  in IsCompatibleWith()
911       if (whyNot) {  in IsCompatibleWith()
912         *whyNot =  in IsCompatibleWith()
913             "function results are incompatible procedure pointers: "s + *whyNot;  in IsCompatibleWith()
916       if (whyNot) {  in IsCompatibleWith()
917         *whyNot =  in IsCompatibleWith()
949 bool Procedure::IsCompatibleWith(const Procedure &actual, std::string *whyNot,  in IsCompatibleWith()  argument
963     if (whyNot) {  in IsCompatibleWith()
965       *whyNot = "incompatible procedure attributes";  in IsCompatibleWith()
967         *whyNot += sep + EnumToString(x);  in IsCompatibleWith()
973     if (whyNot) {  in IsCompatibleWith()
974       *whyNot =  in IsCompatibleWith()
978       !functionResult->IsCompatibleWith(*actual.functionResult, whyNot)) {  in IsCompatibleWith()
980     if (whyNot) {  in IsCompatibleWith()
981       *whyNot = "distinct numbers of dummy arguments";  in IsCompatibleWith()
986               actual.dummyArguments[j], whyNot)) {  in IsCompatibleWith()
987         if (whyNot) {  in IsCompatibleWith()
988           *whyNot = "incompatible dummy argument #"s + std::to_string(j + 1) +  in IsCompatibleWith()
989               ": "s + *whyNot;  in IsCompatibleWith()