nan
extern double nan(const char* tagp);
__real__ res = nan ("");
__real__ res = nan ("");
__imag__ res = nan ("");
__imag__ res = nan ("");
__imag__ res = nan ("");
__real__ res = nan ("");
__imag__ res = nan ("");
__real__ retval = nan ("");
__imag__ retval = nan ("");
__real__ retval = nan ("");
__imag__ retval = nan ("");
__imag__ retval = nan ("");
__imag__ result = nan ("");
__real__ result = nan ("");
__imag__ result = nan ("");
__real__ result = nan ("");
# if |x|>=0x1p14 or nan return 2^trunc(x)
# if |x|>=0x1p14 or nan return 2^trunc(x)