--- libf95.a-0.93/intrinsics/dot_product10.c.orig	2008-06-23 10:45:50.000000000 +0900
+++ libf95.a-0.93/intrinsics/dot_product10.c	2014-10-18 11:32:49.000000000 +0900
@@ -225,7 +225,7 @@
 #define LOAD_B   "mov %0, %" EAX "\n" \
                  "movsbl (%" EAX "), %%eax\n" \
                  "mov %%eax, %1\n" \
-                 "fild %1\n" : : "m" (bp), "m" (temp) : EAX
+                 "filds %1\n" : : "m" (bp), "m" (temp) : EAX
 
 #include "dot_product10.c"
 
@@ -237,7 +237,7 @@
 #define LOAD_B   "mov %0, %" EAX "\n" \
                  "movswl (%" EAX "), %%eax\n" \
                  "mov %%eax, %1\n" \
-                 "fild %1\n" : : "m" (bp), "m" (temp) : EAX
+                 "filds %1\n" : : "m" (bp), "m" (temp) : EAX
 
 #include "dot_product10.c"
 
@@ -247,7 +247,7 @@
                  "fldt ( %" EAX ")\n" : : "m" (ap) : EAX
 
 #define LOAD_B   "mov %0, %" EAX "\n" \
-                 "fild ( %" EAX ")\n" : : "m" (bp), "m" (temp) : EAX
+                 "fildl ( %" EAX ")\n" : : "m" (bp), "m" (temp) : EAX
 
 #include "dot_product10.c"
 
@@ -286,7 +286,7 @@
 #define LOAD_A   "mov %0, %" EAX "\n" \
                  "movsbl (%" EAX "), %%eax\n" \
                  "mov %%eax, %1\n" \
-                 "fild %1\n" : : "m" (ap), "m" (temp) : EAX
+                 "filds %1\n" : : "m" (ap), "m" (temp) : EAX
 
 #define LOAD_B   "mov %0, %" EAX "\n" \
                  "fldt ( %" EAX ")\n" : : "m" (bp) : EAX
@@ -299,7 +299,7 @@
 #define LOAD_A   "mov %0, %" EAX "\n" \
                  "movswl (%" EAX "), %%eax\n" \
                  "mov %%eax, %1\n" \
-                 "fild %1\n" : : "m" (ap), "m" (temp) : EAX
+                 "filds %1\n" : : "m" (ap), "m" (temp) : EAX
 
 #define LOAD_B   "mov %0, %" EAX "\n" \
                  "fldt ( %" EAX ")\n" : : "m" (bp) : EAX
@@ -309,7 +309,7 @@
 #define SUBROUTINE     prefix(dot_product_i4_r10)
 
 #define LOAD_A   "mov %0, %" EAX "\n" \
-                 "fild ( %" EAX ")\n" : : "m" (ap), "m" (temp) : EAX
+                 "fildl ( %" EAX ")\n" : : "m" (ap), "m" (temp) : EAX
 
 #define LOAD_B   "mov %0, %" EAX "\n" \
                  "fldt ( %" EAX ")\n" : : "m" (bp) : EAX