casa-mp-base

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