2007-09-13 15:13:15 -03:00
|
|
|
------------------------------------------------------------------------
|
|
|
|
|
-- ddToIntegral.decTest -- round Double to integral value --
|
|
|
|
|
-- Copyright (c) IBM Corporation, 2001, 2007. All rights reserved. --
|
|
|
|
|
------------------------------------------------------------------------
|
|
|
|
|
-- Please see the document "General Decimal Arithmetic Testcases" --
|
|
|
|
|
-- at http://www2.hursley.ibm.com/decimal for the description of --
|
|
|
|
|
-- these testcases. --
|
|
|
|
|
-- --
|
|
|
|
|
-- These testcases are experimental ('beta' versions), and they --
|
|
|
|
|
-- may contain errors. They are offered on an as-is basis. In --
|
|
|
|
|
-- particular, achieving the same results as the tests here is not --
|
|
|
|
|
-- a guarantee that an implementation complies with any Standard --
|
|
|
|
|
-- or specification. The tests are not exhaustive. --
|
|
|
|
|
-- --
|
|
|
|
|
-- Please send comments, suggestions, and corrections to the author: --
|
|
|
|
|
-- Mike Cowlishaw, IBM Fellow --
|
|
|
|
|
-- IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK --
|
|
|
|
|
-- mfc@uk.ibm.com --
|
|
|
|
|
------------------------------------------------------------------------
|
2007-11-23 14:14:50 -04:00
|
|
|
version: 2.57
|
2007-09-13 15:13:15 -03:00
|
|
|
|
|
|
|
|
-- This set of tests tests the extended specification 'round-to-integral
|
|
|
|
|
-- value-exact' operations (from IEEE 854, later modified in 754r).
|
|
|
|
|
-- All non-zero results are defined as being those from either copy or
|
|
|
|
|
-- quantize, so those are assumed to have been tested extensively
|
|
|
|
|
-- elsewhere; the tests here are for integrity, rounding mode, etc.
|
|
|
|
|
-- Also, it is assumed the test harness will use these tests for both
|
|
|
|
|
-- ToIntegralExact (which does set Inexact) and the fixed-name
|
|
|
|
|
-- functions (which do not set Inexact).
|
|
|
|
|
|
|
|
|
|
-- Note that decNumber implements an earlier definition of toIntegral
|
|
|
|
|
-- which never sets Inexact; the decTest operator for that is called
|
|
|
|
|
-- 'tointegral' instead of 'tointegralx'.
|
|
|
|
|
|
|
|
|
|
precision: 16
|
|
|
|
|
maxExponent: 384
|
|
|
|
|
minExponent: -383
|
|
|
|
|
extended: 1
|
|
|
|
|
clamp: 1
|
|
|
|
|
rounding: half_even
|
|
|
|
|
|
|
|
|
|
ddintx001 tointegralx 0 -> 0
|
|
|
|
|
ddintx002 tointegralx 0.0 -> 0
|
|
|
|
|
ddintx003 tointegralx 0.1 -> 0 Inexact Rounded
|
|
|
|
|
ddintx004 tointegralx 0.2 -> 0 Inexact Rounded
|
|
|
|
|
ddintx005 tointegralx 0.3 -> 0 Inexact Rounded
|
|
|
|
|
ddintx006 tointegralx 0.4 -> 0 Inexact Rounded
|
|
|
|
|
ddintx007 tointegralx 0.5 -> 0 Inexact Rounded
|
|
|
|
|
ddintx008 tointegralx 0.6 -> 1 Inexact Rounded
|
|
|
|
|
ddintx009 tointegralx 0.7 -> 1 Inexact Rounded
|
|
|
|
|
ddintx010 tointegralx 0.8 -> 1 Inexact Rounded
|
|
|
|
|
ddintx011 tointegralx 0.9 -> 1 Inexact Rounded
|
|
|
|
|
ddintx012 tointegralx 1 -> 1
|
|
|
|
|
ddintx013 tointegralx 1.0 -> 1 Rounded
|
|
|
|
|
ddintx014 tointegralx 1.1 -> 1 Inexact Rounded
|
|
|
|
|
ddintx015 tointegralx 1.2 -> 1 Inexact Rounded
|
|
|
|
|
ddintx016 tointegralx 1.3 -> 1 Inexact Rounded
|
|
|
|
|
ddintx017 tointegralx 1.4 -> 1 Inexact Rounded
|
|
|
|
|
ddintx018 tointegralx 1.5 -> 2 Inexact Rounded
|
|
|
|
|
ddintx019 tointegralx 1.6 -> 2 Inexact Rounded
|
|
|
|
|
ddintx020 tointegralx 1.7 -> 2 Inexact Rounded
|
|
|
|
|
ddintx021 tointegralx 1.8 -> 2 Inexact Rounded
|
|
|
|
|
ddintx022 tointegralx 1.9 -> 2 Inexact Rounded
|
|
|
|
|
-- negatives
|
|
|
|
|
ddintx031 tointegralx -0 -> -0
|
|
|
|
|
ddintx032 tointegralx -0.0 -> -0
|
|
|
|
|
ddintx033 tointegralx -0.1 -> -0 Inexact Rounded
|
|
|
|
|
ddintx034 tointegralx -0.2 -> -0 Inexact Rounded
|
|
|
|
|
ddintx035 tointegralx -0.3 -> -0 Inexact Rounded
|
|
|
|
|
ddintx036 tointegralx -0.4 -> -0 Inexact Rounded
|
|
|
|
|
ddintx037 tointegralx -0.5 -> -0 Inexact Rounded
|
|
|
|
|
ddintx038 tointegralx -0.6 -> -1 Inexact Rounded
|
|
|
|
|
ddintx039 tointegralx -0.7 -> -1 Inexact Rounded
|
|
|
|
|
ddintx040 tointegralx -0.8 -> -1 Inexact Rounded
|
|
|
|
|
ddintx041 tointegralx -0.9 -> -1 Inexact Rounded
|
|
|
|
|
ddintx042 tointegralx -1 -> -1
|
|
|
|
|
ddintx043 tointegralx -1.0 -> -1 Rounded
|
|
|
|
|
ddintx044 tointegralx -1.1 -> -1 Inexact Rounded
|
|
|
|
|
ddintx045 tointegralx -1.2 -> -1 Inexact Rounded
|
|
|
|
|
ddintx046 tointegralx -1.3 -> -1 Inexact Rounded
|
|
|
|
|
ddintx047 tointegralx -1.4 -> -1 Inexact Rounded
|
|
|
|
|
ddintx048 tointegralx -1.5 -> -2 Inexact Rounded
|
|
|
|
|
ddintx049 tointegralx -1.6 -> -2 Inexact Rounded
|
|
|
|
|
ddintx050 tointegralx -1.7 -> -2 Inexact Rounded
|
|
|
|
|
ddintx051 tointegralx -1.8 -> -2 Inexact Rounded
|
|
|
|
|
ddintx052 tointegralx -1.9 -> -2 Inexact Rounded
|
|
|
|
|
-- next two would be NaN using quantize(x, 0)
|
|
|
|
|
ddintx053 tointegralx 10E+60 -> 1.0E+61
|
|
|
|
|
ddintx054 tointegralx -10E+60 -> -1.0E+61
|
|
|
|
|
|
|
|
|
|
-- numbers around precision
|
|
|
|
|
ddintx060 tointegralx '56267E-17' -> '0' Inexact Rounded
|
|
|
|
|
ddintx061 tointegralx '56267E-5' -> '1' Inexact Rounded
|
|
|
|
|
ddintx062 tointegralx '56267E-2' -> '563' Inexact Rounded
|
|
|
|
|
ddintx063 tointegralx '56267E-1' -> '5627' Inexact Rounded
|
|
|
|
|
ddintx065 tointegralx '56267E-0' -> '56267'
|
|
|
|
|
ddintx066 tointegralx '56267E+0' -> '56267'
|
|
|
|
|
ddintx067 tointegralx '56267E+1' -> '5.6267E+5'
|
|
|
|
|
ddintx068 tointegralx '56267E+9' -> '5.6267E+13'
|
|
|
|
|
ddintx069 tointegralx '56267E+10' -> '5.6267E+14'
|
|
|
|
|
ddintx070 tointegralx '56267E+11' -> '5.6267E+15'
|
|
|
|
|
ddintx071 tointegralx '56267E+12' -> '5.6267E+16'
|
|
|
|
|
ddintx072 tointegralx '56267E+13' -> '5.6267E+17'
|
|
|
|
|
ddintx073 tointegralx '1.23E+96' -> '1.23E+96'
|
|
|
|
|
ddintx074 tointegralx '1.23E+384' -> #47fd300000000000 Clamped
|
|
|
|
|
|
|
|
|
|
ddintx080 tointegralx '-56267E-10' -> '-0' Inexact Rounded
|
|
|
|
|
ddintx081 tointegralx '-56267E-5' -> '-1' Inexact Rounded
|
|
|
|
|
ddintx082 tointegralx '-56267E-2' -> '-563' Inexact Rounded
|
|
|
|
|
ddintx083 tointegralx '-56267E-1' -> '-5627' Inexact Rounded
|
|
|
|
|
ddintx085 tointegralx '-56267E-0' -> '-56267'
|
|
|
|
|
ddintx086 tointegralx '-56267E+0' -> '-56267'
|
|
|
|
|
ddintx087 tointegralx '-56267E+1' -> '-5.6267E+5'
|
|
|
|
|
ddintx088 tointegralx '-56267E+9' -> '-5.6267E+13'
|
|
|
|
|
ddintx089 tointegralx '-56267E+10' -> '-5.6267E+14'
|
|
|
|
|
ddintx090 tointegralx '-56267E+11' -> '-5.6267E+15'
|
|
|
|
|
ddintx091 tointegralx '-56267E+12' -> '-5.6267E+16'
|
|
|
|
|
ddintx092 tointegralx '-56267E+13' -> '-5.6267E+17'
|
|
|
|
|
ddintx093 tointegralx '-1.23E+96' -> '-1.23E+96'
|
|
|
|
|
ddintx094 tointegralx '-1.23E+384' -> #c7fd300000000000 Clamped
|
|
|
|
|
|
|
|
|
|
-- subnormal inputs
|
|
|
|
|
ddintx100 tointegralx 1E-299 -> 0 Inexact Rounded
|
|
|
|
|
ddintx101 tointegralx 0.1E-299 -> 0 Inexact Rounded
|
|
|
|
|
ddintx102 tointegralx 0.01E-299 -> 0 Inexact Rounded
|
|
|
|
|
ddintx103 tointegralx 0E-299 -> 0
|
|
|
|
|
|
|
|
|
|
-- specials and zeros
|
|
|
|
|
ddintx120 tointegralx 'Inf' -> Infinity
|
|
|
|
|
ddintx121 tointegralx '-Inf' -> -Infinity
|
|
|
|
|
ddintx122 tointegralx NaN -> NaN
|
|
|
|
|
ddintx123 tointegralx sNaN -> NaN Invalid_operation
|
|
|
|
|
ddintx124 tointegralx 0 -> 0
|
|
|
|
|
ddintx125 tointegralx -0 -> -0
|
|
|
|
|
ddintx126 tointegralx 0.000 -> 0
|
|
|
|
|
ddintx127 tointegralx 0.00 -> 0
|
|
|
|
|
ddintx128 tointegralx 0.0 -> 0
|
|
|
|
|
ddintx129 tointegralx 0 -> 0
|
|
|
|
|
ddintx130 tointegralx 0E-3 -> 0
|
|
|
|
|
ddintx131 tointegralx 0E-2 -> 0
|
|
|
|
|
ddintx132 tointegralx 0E-1 -> 0
|
|
|
|
|
ddintx133 tointegralx 0E-0 -> 0
|
|
|
|
|
ddintx134 tointegralx 0E+1 -> 0E+1
|
|
|
|
|
ddintx135 tointegralx 0E+2 -> 0E+2
|
|
|
|
|
ddintx136 tointegralx 0E+3 -> 0E+3
|
|
|
|
|
ddintx137 tointegralx 0E+4 -> 0E+4
|
|
|
|
|
ddintx138 tointegralx 0E+5 -> 0E+5
|
|
|
|
|
ddintx139 tointegralx -0.000 -> -0
|
|
|
|
|
ddintx140 tointegralx -0.00 -> -0
|
|
|
|
|
ddintx141 tointegralx -0.0 -> -0
|
|
|
|
|
ddintx142 tointegralx -0 -> -0
|
|
|
|
|
ddintx143 tointegralx -0E-3 -> -0
|
|
|
|
|
ddintx144 tointegralx -0E-2 -> -0
|
|
|
|
|
ddintx145 tointegralx -0E-1 -> -0
|
|
|
|
|
ddintx146 tointegralx -0E-0 -> -0
|
|
|
|
|
ddintx147 tointegralx -0E+1 -> -0E+1
|
|
|
|
|
ddintx148 tointegralx -0E+2 -> -0E+2
|
|
|
|
|
ddintx149 tointegralx -0E+3 -> -0E+3
|
|
|
|
|
ddintx150 tointegralx -0E+4 -> -0E+4
|
|
|
|
|
ddintx151 tointegralx -0E+5 -> -0E+5
|
|
|
|
|
-- propagating NaNs
|
|
|
|
|
ddintx152 tointegralx NaN808 -> NaN808
|
|
|
|
|
ddintx153 tointegralx sNaN080 -> NaN80 Invalid_operation
|
|
|
|
|
ddintx154 tointegralx -NaN808 -> -NaN808
|
|
|
|
|
ddintx155 tointegralx -sNaN080 -> -NaN80 Invalid_operation
|
|
|
|
|
ddintx156 tointegralx -NaN -> -NaN
|
|
|
|
|
ddintx157 tointegralx -sNaN -> -NaN Invalid_operation
|
|
|
|
|
|
|
|
|
|
-- examples
|
|
|
|
|
rounding: half_up
|
|
|
|
|
ddintx200 tointegralx 2.1 -> 2 Inexact Rounded
|
|
|
|
|
ddintx201 tointegralx 100 -> 100
|
|
|
|
|
ddintx202 tointegralx 100.0 -> 100 Rounded
|
|
|
|
|
ddintx203 tointegralx 101.5 -> 102 Inexact Rounded
|
|
|
|
|
ddintx204 tointegralx -101.5 -> -102 Inexact Rounded
|
|
|
|
|
ddintx205 tointegralx 10E+5 -> 1.0E+6
|
|
|
|
|
ddintx206 tointegralx 7.89E+77 -> 7.89E+77
|
|
|
|
|
ddintx207 tointegralx -Inf -> -Infinity
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
-- all rounding modes
|
|
|
|
|
rounding: half_even
|
|
|
|
|
ddintx210 tointegralx 55.5 -> 56 Inexact Rounded
|
|
|
|
|
ddintx211 tointegralx 56.5 -> 56 Inexact Rounded
|
|
|
|
|
ddintx212 tointegralx 57.5 -> 58 Inexact Rounded
|
|
|
|
|
ddintx213 tointegralx -55.5 -> -56 Inexact Rounded
|
|
|
|
|
ddintx214 tointegralx -56.5 -> -56 Inexact Rounded
|
|
|
|
|
ddintx215 tointegralx -57.5 -> -58 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
rounding: half_up
|
|
|
|
|
|
|
|
|
|
ddintx220 tointegralx 55.5 -> 56 Inexact Rounded
|
|
|
|
|
ddintx221 tointegralx 56.5 -> 57 Inexact Rounded
|
|
|
|
|
ddintx222 tointegralx 57.5 -> 58 Inexact Rounded
|
|
|
|
|
ddintx223 tointegralx -55.5 -> -56 Inexact Rounded
|
|
|
|
|
ddintx224 tointegralx -56.5 -> -57 Inexact Rounded
|
|
|
|
|
ddintx225 tointegralx -57.5 -> -58 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
rounding: half_down
|
|
|
|
|
|
|
|
|
|
ddintx230 tointegralx 55.5 -> 55 Inexact Rounded
|
|
|
|
|
ddintx231 tointegralx 56.5 -> 56 Inexact Rounded
|
|
|
|
|
ddintx232 tointegralx 57.5 -> 57 Inexact Rounded
|
|
|
|
|
ddintx233 tointegralx -55.5 -> -55 Inexact Rounded
|
|
|
|
|
ddintx234 tointegralx -56.5 -> -56 Inexact Rounded
|
|
|
|
|
ddintx235 tointegralx -57.5 -> -57 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
rounding: up
|
|
|
|
|
|
|
|
|
|
ddintx240 tointegralx 55.3 -> 56 Inexact Rounded
|
|
|
|
|
ddintx241 tointegralx 56.3 -> 57 Inexact Rounded
|
|
|
|
|
ddintx242 tointegralx 57.3 -> 58 Inexact Rounded
|
|
|
|
|
ddintx243 tointegralx -55.3 -> -56 Inexact Rounded
|
|
|
|
|
ddintx244 tointegralx -56.3 -> -57 Inexact Rounded
|
|
|
|
|
ddintx245 tointegralx -57.3 -> -58 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
rounding: down
|
|
|
|
|
|
|
|
|
|
ddintx250 tointegralx 55.7 -> 55 Inexact Rounded
|
|
|
|
|
ddintx251 tointegralx 56.7 -> 56 Inexact Rounded
|
|
|
|
|
ddintx252 tointegralx 57.7 -> 57 Inexact Rounded
|
|
|
|
|
ddintx253 tointegralx -55.7 -> -55 Inexact Rounded
|
|
|
|
|
ddintx254 tointegralx -56.7 -> -56 Inexact Rounded
|
|
|
|
|
ddintx255 tointegralx -57.7 -> -57 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
rounding: ceiling
|
|
|
|
|
|
|
|
|
|
ddintx260 tointegralx 55.3 -> 56 Inexact Rounded
|
|
|
|
|
ddintx261 tointegralx 56.3 -> 57 Inexact Rounded
|
|
|
|
|
ddintx262 tointegralx 57.3 -> 58 Inexact Rounded
|
|
|
|
|
ddintx263 tointegralx -55.3 -> -55 Inexact Rounded
|
|
|
|
|
ddintx264 tointegralx -56.3 -> -56 Inexact Rounded
|
|
|
|
|
ddintx265 tointegralx -57.3 -> -57 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
rounding: floor
|
|
|
|
|
|
|
|
|
|
ddintx270 tointegralx 55.7 -> 55 Inexact Rounded
|
|
|
|
|
ddintx271 tointegralx 56.7 -> 56 Inexact Rounded
|
|
|
|
|
ddintx272 tointegralx 57.7 -> 57 Inexact Rounded
|
|
|
|
|
ddintx273 tointegralx -55.7 -> -56 Inexact Rounded
|
|
|
|
|
ddintx274 tointegralx -56.7 -> -57 Inexact Rounded
|
|
|
|
|
ddintx275 tointegralx -57.7 -> -58 Inexact Rounded
|
|
|
|
|
|
|
|
|
|
-- Int and uInt32 edge values for testing conversions
|
|
|
|
|
ddintx300 tointegralx -2147483646 -> -2147483646
|
|
|
|
|
ddintx301 tointegralx -2147483647 -> -2147483647
|
|
|
|
|
ddintx302 tointegralx -2147483648 -> -2147483648
|
|
|
|
|
ddintx303 tointegralx -2147483649 -> -2147483649
|
|
|
|
|
ddintx304 tointegralx 2147483646 -> 2147483646
|
|
|
|
|
ddintx305 tointegralx 2147483647 -> 2147483647
|
|
|
|
|
ddintx306 tointegralx 2147483648 -> 2147483648
|
|
|
|
|
ddintx307 tointegralx 2147483649 -> 2147483649
|
|
|
|
|
ddintx308 tointegralx 4294967294 -> 4294967294
|
|
|
|
|
ddintx309 tointegralx 4294967295 -> 4294967295
|
|
|
|
|
ddintx310 tointegralx 4294967296 -> 4294967296
|
|
|
|
|
ddintx311 tointegralx 4294967297 -> 4294967297
|
|
|
|
|
|
