| ilovesoup | c9fef1d | 2012-07-08 19:30:42 +0000 | [diff] [blame] | 1 | drop dataverse test if exists; |
| 2 | create dataverse test; |
| 3 | use dataverse test; |
| 4 | |
| 5 | write output to nc1:"rttest/numeric_round-half-to-even3.adm"; |
| 6 | |
| 7 | |
| 8 | let $c0 := double("0.5") |
| 9 | let $c1 := double("-20.5") |
| 10 | let $c2 := double("NaN") |
| 11 | let $c3 := double("INF") |
| 12 | let $c4 := double("-INF") |
| 13 | let $c5 := double("-0.0") |
| 14 | let $c6 := double("0.0") |
| jarodwen | f5cd0a7 | 2013-03-17 02:08:33 +0000 | [diff] [blame] | 15 | let $c7 := double("-6223372036854775807.89239") |
| ilovesoup | c9fef1d | 2012-07-08 19:30:42 +0000 | [diff] [blame] | 16 | return {"d0": numeric-round-half-to-even($c0), "d1": numeric-round-half-to-even($c1), "d2": numeric-round-half-to-even($c2), |
| jarodwen | f5cd0a7 | 2013-03-17 02:08:33 +0000 | [diff] [blame] | 17 | "d3": numeric-round-half-to-even($c3), "d4": numeric-round-half-to-even($c4), "d5": numeric-round-half-to-even($c5), "d6": numeric-round-half-to-even($c6), "d7": numeric-round-half-to-even($c7)} |