deps/lightning/check/fop_sqrt.tst

   1 #include "alu.inc"
   2
   3 .code
   4         prolog
   5 #define SQRT(N, T, I, V)        FUN(N, T, sqrt, I, V)
   6 #define USQRT(N, T, I, V)       UFUN(N, T, sqrt, I, V)
   7          SQRT(0, _f,    -0.0,            0.0)
   8          SQRT(1, _f,     4.0,            2.0)
   9          SQRT(2, _f,     2.25,           1.5)
  10          SQRT(3, _f,    $Inf,           $Inf)
  11         USQRT(0, _f,    $NaN,           $NaN)
  12          SQRT(0, _d,    -0.0,            0.0)
  13          SQRT(1, _d,     4.0,            2.0)
  14          SQRT(2, _d,     2.25,           1.5)
  15          SQRT(3, _d,    $Inf,           $Inf)
  16         USQRT(0, _d,    $NaN,           $NaN)
  17
  18         prepare
  19                 pushargi ok
  20                 ellipsis
  21         finishi @printf
  22         ret
  23         epilog