--- libf95.a-0.93/io/read.c.orig	2008-11-19 01:13:37.000000000 +0900
+++ libf95.a-0.93/io/read.c	2014-10-18 11:34:15.000000000 +0900
@@ -102,7 +102,7 @@
 
 #if HAVE_REAL_10
     case 10:
-	asm("fild %0\n"
+	asm("fildl %0\n"
 	    "mov %1, %" EAX "\n"
 	    "fstpt (%" EAX ")\n" : : "m" (value), "m" (dest) : EAX);
 	break;