Return to gforth.fs CVS log | Up to [gforth] / gforth / test |
version 1.17, 2009/12/31 15:32:36 | version 1.18, 2011/08/10 13:55:03 |
---|---|
Line 95 t{ -5e 1e fcopysign -> 5e }t | Line 95 t{ -5e 1e fcopysign -> 5e }t |
t{ 5e -1e fcopysign -> -5e }t | t{ 5e -1e fcopysign -> -5e }t |
t{ -5e -1e fcopysign -> -5e }t | t{ -5e -1e fcopysign -> -5e }t |
\ tests involving -0e? | \ tests involving -0e? |
\ ?of | |
: sgn ( n1 -- n2 ) | |
case | |
dup 0< ?of drop -1 endof | |
dup 0> ?of drop 1 endof | |
dup | |
endcase ; | |
t{ 5 sgn -> 1 } | |
t{ -3 sgn -> -1 } | |
t{ 0 sgn -> 0 } |