infnan
extern int infnan(int);
return(copysign(1.0,z)*infnan(ERANGE)); /* sign(x)*INF */
return(copysignf(1.0,z)*infnan(ERANGE)); /* sign(x)*INF */
if (!_IEEE) return (infnan(ERANGE));
return (infnan(EDOM));
return (infnan(ERANGE));
return(infnan(-ERANGE));
return (infnan(EDOM));
return (infnan(EDOM));
if(x == 0) return(infnan(-ERANGE));
return(infnan(EDOM));
else if (x < 0) return (infnan(EDOM));
else return(infnan(-ERANGE));
return (infnan(-sign * ERANGE));
else return (infnan(EDOM));
return(infnan(ERANGE));
return(infnan(ERANGE));
return (infnan(ERANGE));
return (infnan(-ERANGE));
return (infnan(EDOM));
return (infnan(ERANGE));
return (infnan(-ERANGE)); /* -INF */
return (infnan(EDOM)); /* NaN */
return (infnan(EDOM));
return (infnan(ERANGE));
return (infnan(ERANGE));
return (infnan(ERANGE));
return(copysign(infnan(ERANGE),x));
return(infnan(EDOM));
return (infnan(EDOM)); /* NaN */