182 lines
7.1 KiB
Plaintext
182 lines
7.1 KiB
Plaintext
------------------------------------------------------------------------
|
|
-- plus.decTest -- decimal monadic addition --
|
|
-- Copyright (c) IBM Corporation, 1981, 2004. 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 --
|
|
------------------------------------------------------------------------
|
|
version: 2.38
|
|
|
|
-- This set of tests primarily tests the existence of the operator.
|
|
-- Addition and rounding, and most overflows, are tested elsewhere.
|
|
|
|
extended: 1
|
|
precision: 9
|
|
rounding: half_up
|
|
maxExponent: 384
|
|
minexponent: -383
|
|
|
|
plux001 plus '1' -> '1'
|
|
plux002 plus '-1' -> '-1'
|
|
plux003 plus '1.00' -> '1.00'
|
|
plux004 plus '-1.00' -> '-1.00'
|
|
plux005 plus '0' -> '0'
|
|
plux006 plus '0.00' -> '0.00'
|
|
plux007 plus '00.0' -> '0.0'
|
|
plux008 plus '00.00' -> '0.00'
|
|
plux009 plus '00' -> '0'
|
|
|
|
plux010 plus '-2' -> '-2'
|
|
plux011 plus '2' -> '2'
|
|
plux012 plus '-2.00' -> '-2.00'
|
|
plux013 plus '2.00' -> '2.00'
|
|
plux014 plus '-0' -> '0'
|
|
plux015 plus '-0.00' -> '0.00'
|
|
plux016 plus '-00.0' -> '0.0'
|
|
plux017 plus '-00.00' -> '0.00'
|
|
plux018 plus '-00' -> '0'
|
|
|
|
plux020 plus '-2000000' -> '-2000000'
|
|
plux021 plus '2000000' -> '2000000'
|
|
precision: 7
|
|
plux022 plus '-2000000' -> '-2000000'
|
|
plux023 plus '2000000' -> '2000000'
|
|
precision: 6
|
|
plux024 plus '-2000000' -> '-2.00000E+6' Rounded
|
|
plux025 plus '2000000' -> '2.00000E+6' Rounded
|
|
precision: 3
|
|
plux026 plus '-2000000' -> '-2.00E+6' Rounded
|
|
plux027 plus '2000000' -> '2.00E+6' Rounded
|
|
|
|
-- more fixed, potential LHS swaps if done by add 0
|
|
precision: 9
|
|
plux060 plus '56267E-10' -> '0.0000056267'
|
|
plux061 plus '56267E-5' -> '0.56267'
|
|
plux062 plus '56267E-2' -> '562.67'
|
|
plux063 plus '56267E-1' -> '5626.7'
|
|
plux065 plus '56267E-0' -> '56267'
|
|
plux066 plus '56267E+0' -> '56267'
|
|
plux067 plus '56267E+1' -> '5.6267E+5'
|
|
plux068 plus '56267E+2' -> '5.6267E+6'
|
|
plux069 plus '56267E+3' -> '5.6267E+7'
|
|
plux070 plus '56267E+4' -> '5.6267E+8'
|
|
plux071 plus '56267E+5' -> '5.6267E+9'
|
|
plux072 plus '56267E+6' -> '5.6267E+10'
|
|
plux080 plus '-56267E-10' -> '-0.0000056267'
|
|
plux081 plus '-56267E-5' -> '-0.56267'
|
|
plux082 plus '-56267E-2' -> '-562.67'
|
|
plux083 plus '-56267E-1' -> '-5626.7'
|
|
plux085 plus '-56267E-0' -> '-56267'
|
|
plux086 plus '-56267E+0' -> '-56267'
|
|
plux087 plus '-56267E+1' -> '-5.6267E+5'
|
|
plux088 plus '-56267E+2' -> '-5.6267E+6'
|
|
plux089 plus '-56267E+3' -> '-5.6267E+7'
|
|
plux090 plus '-56267E+4' -> '-5.6267E+8'
|
|
plux091 plus '-56267E+5' -> '-5.6267E+9'
|
|
plux092 plus '-56267E+6' -> '-5.6267E+10'
|
|
|
|
-- "lhs" zeros in plus and minus have exponent = operand
|
|
plux120 plus '-0E3' -> '0E+3'
|
|
plux121 plus '-0E2' -> '0E+2'
|
|
plux122 plus '-0E1' -> '0E+1'
|
|
plux123 plus '-0E0' -> '0'
|
|
plux124 plus '+0E0' -> '0'
|
|
plux125 plus '+0E1' -> '0E+1'
|
|
plux126 plus '+0E2' -> '0E+2'
|
|
plux127 plus '+0E3' -> '0E+3'
|
|
|
|
plux130 plus '-5E3' -> '-5E+3'
|
|
plux131 plus '-5E8' -> '-5E+8'
|
|
plux132 plus '-5E13' -> '-5E+13'
|
|
plux133 plus '-5E18' -> '-5E+18'
|
|
plux134 plus '+5E3' -> '5E+3'
|
|
plux135 plus '+5E8' -> '5E+8'
|
|
plux136 plus '+5E13' -> '5E+13'
|
|
plux137 plus '+5E18' -> '5E+18'
|
|
|
|
-- specials
|
|
plux150 plus 'Inf' -> 'Infinity'
|
|
plux151 plus '-Inf' -> '-Infinity'
|
|
plux152 plus NaN -> NaN
|
|
plux153 plus sNaN -> NaN Invalid_operation
|
|
plux154 plus NaN77 -> NaN77
|
|
plux155 plus sNaN88 -> NaN88 Invalid_operation
|
|
plux156 plus -NaN -> -NaN
|
|
plux157 plus -sNaN -> -NaN Invalid_operation
|
|
plux158 plus -NaN77 -> -NaN77
|
|
plux159 plus -sNaN88 -> -NaN88 Invalid_operation
|
|
|
|
-- overflow tests
|
|
maxexponent: 999999999
|
|
minexponent: -999999999
|
|
precision: 3
|
|
plux160 plus 9.999E+999999999 -> Infinity Inexact Overflow Rounded
|
|
plux161 plus -9.999E+999999999 -> -Infinity Inexact Overflow Rounded
|
|
|
|
-- subnormals and underflow
|
|
precision: 3
|
|
maxexponent: 999
|
|
minexponent: -999
|
|
plux210 plus 1.00E-999 -> 1.00E-999
|
|
plux211 plus 0.1E-999 -> 1E-1000 Subnormal
|
|
plux212 plus 0.10E-999 -> 1.0E-1000 Subnormal
|
|
plux213 plus 0.100E-999 -> 1.0E-1000 Subnormal Rounded
|
|
plux214 plus 0.01E-999 -> 1E-1001 Subnormal
|
|
-- next is rounded to Emin
|
|
plux215 plus 0.999E-999 -> 1.00E-999 Inexact Rounded Subnormal Underflow
|
|
plux216 plus 0.099E-999 -> 1.0E-1000 Inexact Rounded Subnormal Underflow
|
|
plux217 plus 0.009E-999 -> 1E-1001 Inexact Rounded Subnormal Underflow
|
|
plux218 plus 0.001E-999 -> 0E-1001 Inexact Rounded Subnormal Underflow
|
|
plux219 plus 0.0009E-999 -> 0E-1001 Inexact Rounded Subnormal Underflow
|
|
plux220 plus 0.0001E-999 -> 0E-1001 Inexact Rounded Subnormal Underflow
|
|
|
|
plux230 plus -1.00E-999 -> -1.00E-999
|
|
plux231 plus -0.1E-999 -> -1E-1000 Subnormal
|
|
plux232 plus -0.10E-999 -> -1.0E-1000 Subnormal
|
|
plux233 plus -0.100E-999 -> -1.0E-1000 Subnormal Rounded
|
|
plux234 plus -0.01E-999 -> -1E-1001 Subnormal
|
|
-- next is rounded to Emin
|
|
plux235 plus -0.999E-999 -> -1.00E-999 Inexact Rounded Subnormal Underflow
|
|
plux236 plus -0.099E-999 -> -1.0E-1000 Inexact Rounded Subnormal Underflow
|
|
plux237 plus -0.009E-999 -> -1E-1001 Inexact Rounded Subnormal Underflow
|
|
plux238 plus -0.001E-999 -> -0E-1001 Inexact Rounded Subnormal Underflow
|
|
plux239 plus -0.0009E-999 -> -0E-1001 Inexact Rounded Subnormal Underflow
|
|
plux240 plus -0.0001E-999 -> -0E-1001 Inexact Rounded Subnormal Underflow
|
|
|
|
-- long operand checks
|
|
maxexponent: 999
|
|
minexponent: -999
|
|
precision: 9
|
|
plux301 plus 12345678000 -> 1.23456780E+10 Rounded
|
|
plux302 plus 1234567800 -> 1.23456780E+9 Rounded
|
|
plux303 plus 1234567890 -> 1.23456789E+9 Rounded
|
|
plux304 plus 1234567891 -> 1.23456789E+9 Inexact Rounded
|
|
plux305 plus 12345678901 -> 1.23456789E+10 Inexact Rounded
|
|
plux306 plus 1234567896 -> 1.23456790E+9 Inexact Rounded
|
|
|
|
-- still checking
|
|
precision: 15
|
|
plux321 plus 12345678000 -> 12345678000
|
|
plux322 plus 1234567800 -> 1234567800
|
|
plux323 plus 1234567890 -> 1234567890
|
|
plux324 plus 1234567891 -> 1234567891
|
|
plux325 plus 12345678901 -> 12345678901
|
|
plux326 plus 1234567896 -> 1234567896
|
|
precision: 9
|
|
|
|
-- Null tests
|
|
plu900 plus # -> NaN Invalid_operation
|
|
|