------------------------------------------------------------------------
-- fma0.decTest -- decimal fused multiply add (subset arithmetic)     --
-- Copyright (c) IBM Corporation, 1981, 2008.  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.58

extended:    0
precision:   9
rounding:    half_up
maxExponent: 384
minexponent: -383

-- FMA is not defined in subset, so all values return Invalid
-- [And no special values, of course.]

-- Sanity checks
fma0001 fma  1   1   1 ->   ? Invalid_operation

-- zeros, etc.
fma2021 fma  0      0      0E+999999  ->  ? Invalid_operation

-- examples from decarith
fma2050 fma 1.20 3         0E+999999  -> ? Invalid_operation
fma2051 fma 7    3         0E+999999  -> ? Invalid_operation
fma2052 fma 0.9  0.8       0E+999999  -> ? Invalid_operation
fma2053 fma 0.9  -0        0E+999999  -> ? Invalid_operation
fma2054 fma 654321 654321  0E+999999  -> ? Invalid_operation

-- Null tests
fma39990 fma  1   10  # -> ? Invalid_operation
fma39991 fma  1    # 10 -> ? Invalid_operation