| 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-even23.adm"; |
| 6 | |
| 7 | |
| 8 | let $c0 := double("0.555") |
| 9 | let $c1 := double("0.322") |
| 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-even2($c0,2), "d1": numeric-round-half-to-even2($c1,2),"d2": numeric-round-half-to-even2($c2,3), |
| jarodwen | f5cd0a7 | 2013-03-17 02:08:33 +0000 | [diff] [blame^] | 17 | "d3": numeric-round-half-to-even2($c3,4),"d4": numeric-round-half-to-even2($c4,5),"d5": numeric-round-half-to-even2($c5,6), "d6": numeric-round-half-to-even2($c6,0), "d7": numeric-round-half-to-even2($c7, -2)} |