diff options
Diffstat (limited to 'libgfortran/generated/rrspacing_r16.c')
| -rw-r--r-- | libgfortran/generated/rrspacing_r16.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/generated/rrspacing_r16.c b/libgfortran/generated/rrspacing_r16.c index d18a9c3..20225d4 100644 --- a/libgfortran/generated/rrspacing_r16.c +++ b/libgfortran/generated/rrspacing_r16.c @@ -33,7 +33,7 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h" -#if defined (HAVE_GFC_REAL_16) && defined (HAVE_FABSL) && defined (HAVE_FREXPL) && defined (HAVE_LDEXPL) +#if defined (HAVE_GFC_REAL_16) && defined (HAVE_FABSL) && defined (HAVE_FREXPL) extern GFC_REAL_16 rrspacing_r16 (GFC_REAL_16 s, int p); export_proto(rrspacing_r16); @@ -47,7 +47,12 @@ rrspacing_r16 (GFC_REAL_16 s, int p) if (x == 0.) return 0.; frexpl (s, &e); +#if defined (HAVE_LDEXPL) return ldexpl (x, p - e); +#else + return scalbnl (x, p - e); +#endif + } #endif |