--- libf95.a-0.93/intrinsics/random.c.orig	2008-06-23 10:42:51.000000000 +0900
+++ libf95.a-0.93/intrinsics/random.c	2014-10-18 12:00:44.000000000 +0900
@@ -208,7 +208,7 @@
     harvest[0] = xorshf96();
     harvest[1] = xorshf96() & 0x7FFFFFFF;
 
-    asm("fild %0\n"
+    asm("fildl %0\n"
 	"mov %1, %" EAX "\n"
 	"fildll (%" EAX ")\n"
 	"fscale\n"