OSDN Git Service

PR libfortran/21950
[pf3gnuchains/gcc-fork.git] / libgfortran / intrinsics / c99_functions.c
index 6296904..dfdb71e 100644 (file)
@@ -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)