1#include <stdio.h>
 2#include <float.h>
 3#include <errno.h>
 4#include <math.h>
 5
 6extern long double __cdecl
 7__mingw_wcstold (const wchar_t * __restrict__ _Str, wchar_t ** __restrict__ _EndPtr);
 8
 9double __cdecl
10__mingw_wcstod (const wchar_t * __restrict__ _Str, wchar_t ** __restrict__ _EndPtr);
11
12double __cdecl
13__mingw_wcstod (const wchar_t * __restrict__ _Str, wchar_t ** __restrict__ _EndPtr)
14{
15  long double ret = __mingw_wcstold (_Str, _EndPtr);
16  if (isfinite(ret)) {
17    /* Check for cases that aren't out of range for long doubles, but that are
18     * for doubles. */
19    if (ret > DBL_MAX)
20      errno = ERANGE;
21    else if (ret < -DBL_MAX)
22      errno = ERANGE;
23    else if (ret > 0 && ret < DBL_MIN)
24      errno = ERANGE;
25    else if (ret < 0 && ret > -DBL_MIN)
26      errno = ERANGE;
27  }
28  return ret;
29}
30
31