diff options
Diffstat (limited to 'libgfortran/intrinsics/c99_functions.c')
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 6296904b56d..dfdb71e7427 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -154,6 +154,14 @@ log10f(float x) } #endif +#ifndef HAVE_SCALBN +double +scalbn(double x, int y) +{ + return x * pow(FLT_RADIX, y); +} +#endif + #ifndef HAVE_SCALBNF float scalbnf(float x, int y) |