diff options
Diffstat (limited to 'libgfortran/generated/spacing_r10.c')
| -rw-r--r-- | libgfortran/generated/spacing_r10.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/generated/spacing_r10.c b/libgfortran/generated/spacing_r10.c index fd11ab6..797920c 100644 --- a/libgfortran/generated/spacing_r10.c +++ b/libgfortran/generated/spacing_r10.c @@ -33,7 +33,7 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h" -#if defined (HAVE_GFC_REAL_10) && defined (HAVE_FREXPL) && defined (HAVE_LDEXPL) +#if defined (HAVE_GFC_REAL_10) && defined (HAVE_FREXPL) extern GFC_REAL_10 spacing_r10 (GFC_REAL_10 s, int p, int emin, GFC_REAL_10 tiny); export_proto(spacing_r10); @@ -47,7 +47,11 @@ spacing_r10 (GFC_REAL_10 s, int p, int emin, GFC_REAL_10 tiny) frexpl (s, &e); e = e - p; e = e > emin ? e : emin; +#if defined (HAVE_LDEXPL) return ldexpl (1., e); +#else + return scalbnl (1., e); +#endif } #endif |