--- libf95.a-0.93/math/ff.c.orig	2009-03-25 02:27:34.000000000 +0900
+++ libf95.a-0.93/math/ff.c	2014-10-18 11:35:35.000000000 +0900
@@ -790,7 +790,7 @@
 
     exp = *i - 1;
 
-    asm("fild %0\n"        /* i */
+    asm("fildl %0\n"        /* i */
 	"fldt %1\n"        /* x : i */
 	"fxtract\n"        /* sig(x) : exp(x) : i */
 	"fstp %%st(1)\n"   /* sig(x) : i */
@@ -961,7 +961,7 @@
 
     exp = *i;
 
-    asm("fild %0\n"
+    asm("fildl %0\n"
 	"fldt %1\n"
 	"fscale\n"
 	"fstp %%st(1)\n" : : "m" (exp), "m" (*x));
@@ -1069,7 +1069,7 @@
     case FF_REGULAR:
 	exp = MAN10_LEN - 1;
 
-	asm("fild %0\n"             /* p */
+	asm("fildl %0\n"             /* p */
 	    "fldt %1\n"             /* x . p */
 	    "fxam\n"
 	    "fnstsw\n"