 ] unit-test
 
 ! ensure rounding mode is restored to +round-nearest+
-[
+{
     0x3fd5,5555,5555,5555
     0x3fc9,9999,9999,999a
     0xbfc9,9999,9999,999a
     0xbfd5,5555,5555,5555
-] [
+} [
      1.0 3.0 /f double>bits
      1.0 5.0 /f double>bits
     -1.0 5.0 /f double>bits

    ] with-rounding-mode
] unit-test

[
    0x3fd5,5555,5555,5556
    0x3fc9,9999,9999,999a
    0xbfc9,9999,9999,9999
    0xbfd5,5555,5555,5555
] [
    +round-up+ [
         1.0 3.0 /f double>bits
         1.0 5.0 /f double>bits

    ] with-rounding-mode
] unit-test

{
    0x3fd5,5555,5555,5555
    0x3fc9,9999,9999,9999
    0xbfc9,9999,9999,9999
    0xbfd5,5555,5555,5555
} [
    +round-zero+ [
         1.0 3.0 /f double>bits
         1.0 5.0 /f double>bits
