14 const char *StatErrorString(int stat) {  in StatErrorString()  argument
15   switch (stat) {  in StatErrorString()
68 int ToErrmsg(const Descriptor *errmsg, int stat) {  in ToErrmsg()  argument
69   if (stat != StatOk && errmsg && errmsg->raw().base_addr &&  in ToErrmsg()
72     if (const char *msg{StatErrorString(stat)}) {  in ToErrmsg()
84   return stat;  in ToErrmsg()
88     Terminator &terminator, int stat, const Descriptor *errmsg, bool hasStat) {  in ReturnError()  argument
89   if (stat == StatOk || hasStat) {  in ReturnError()
90     return ToErrmsg(errmsg, stat);  in ReturnError()
91   } else if (const char *msg{StatErrorString(stat)}) {  in ReturnError()
94     terminator.Crash("Invalid Fortran runtime STAT= code %d", stat);  in ReturnError()
96   return stat;  in ReturnError()