STRTOG_Inexact
kind = *kindp &= ~STRTOG_Inexact;
if (!(rv & STRTOG_Inexact)) {
rv1 = rv ^ STRTOG_Inexact;
j = STRTOG_Inexact - j;
if (k & STRTOG_Inexact) {
if (k & STRTOG_Inexact) {
j = k & STRTOG_Inexact;
if (irv & STRTOG_Inexact) {
inex = STRTOG_Inexact - inex;