STRTOG_Inexact
kind = *kindp &= ~STRTOG_Inexact;
if (irv & STRTOG_Inexact) {
inex = STRTOG_Inexact - inex;