casa-mp-base

--- 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"