14 const char *StatErrorString(int stat) {  in StatErrorString()  argument
15   switch (stat) {  in StatErrorString()
58 int ToErrmsg(Descriptor *errmsg, int stat) {  in ToErrmsg()  argument
59   if (stat != StatOk && errmsg && errmsg->raw().base_addr &&  in ToErrmsg()
62     if (const char *msg{StatErrorString(stat)}) {  in ToErrmsg()
74   return stat;  in ToErrmsg()
78     Terminator &terminator, int stat, Descriptor *errmsg, bool hasStat) {  in ReturnError()  argument
79   if (stat == StatOk || hasStat) {  in ReturnError()
80     return ToErrmsg(errmsg, stat);  in ReturnError()
81   } else if (const char *msg{StatErrorString(stat)}) {  in ReturnError()
84     terminator.Crash("Invalid Fortran runtime STAT= code %d", stat);  in ReturnError()
86   return stat;  in ReturnError()