diff --git a/crypto/bio/b_print.c b/crypto/bio/b_print.c
index 9a71441b291138a976cc7c292915ac52328ea173..80dc162ccf34bd7f37073cabccab16045c3d558a 100644
--- a/crypto/bio/b_print.c
+++ b/crypto/bio/b_print.c
@@ -618,7 +618,7 @@ fmtfp(
 
     if (fracpart >= pow10(max)) {
         intpart++;
-        fracpart -= pow10(max);
+        fracpart -= (long)pow10(max);
     }
 
     /* convert integer part */