diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2008-08-25 15:28:20 +0000 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2008-08-25 15:28:20 +0000 |
| commit | 1203357e1d15ae7d3bbc023230b395279026c424 (patch) | |
| tree | 17f4270b6875f12d9be6966fcfb775a351f13545 /libgfortran/intrinsics/c99_functions.c | |
| parent | 562741357bda00dc3f48d91f7460ffe73b7db941 (diff) | |
svn merge -r130397:139561 svn+ssh://gcc.gnu.org/svn/gcc/branches/redhat/gcc-4_1-branchredhat/fc6-4_1-branch
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/redhat/fc6-4_1-branch@139562 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/c99_functions.c')
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index 3eabd0dc5a7..40e0ba76346 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -226,7 +226,11 @@ log10f(float x) double scalbn(double x, int y) { +#if (FLT_RADIX == 2) && defined(HAVE_LDEXP) + return ldexp (x, y); +#else return x * pow(FLT_RADIX, y); +#endif } #endif |