diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-15 08:40:35 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-15 08:40:35 +0000 |
| commit | ae973d6ae8d82bb7612603c8a08b21374a8aab29 (patch) | |
| tree | d38b91436842cc4c2a0381e5ce0996da9a41ebf4 /libgfortran/intrinsics | |
| parent | c4eacf9907eb2298d8552e02910723518203bca0 (diff) | |
| download | gcc-ae973d6ae8d82bb7612603c8a08b21374a8aab29.tar.gz | |
re PR libfortran/21950 (All gfortran execution tests fail on Tru64 UNIX V4.0F: scalbn unresolved)
PR libfortran/21950
* intrinsics/c99_functions.c (scalbn): Provide fallback
implementation for scalbn.
* c99_protos.h: Prototype for scalbn.
* configure.ac: Add check for scalbn.
* configure: Regenerate.
* config.h.in: Regenerate.
From-SVN: r100974
Diffstat (limited to 'libgfortran/intrinsics')
| -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) |