;; correctly. On other platforms, we trust libm to DTRT.
;; but it doesn't cost any real amount to just test them all
(with-test (:name :range-reduction
- :fails-on '(and :x86-64 (or :linux :darwin)))
+ :fails-on ':x86-64)
(flet ((almost= (x y)
(< (abs (- x y)) 1d-5)))
(macrolet ((foo (op value)
(+ (float int 0e0) x0))))
(declare (notinline test-cvtsi2ss))
(assert (zerop (imagpart (test-cvtsi2ss 4)))))))
+
+(with-test (:name :round-to-bignum)
+ (assert (= (round 1073741822.3d0) 1073741822))
+ (assert (= (round 1073741822.5d0) 1073741822))
+ (assert (= (round 1073741822.7d0) 1073741823))
+ (assert (= (round 1073741823.3d0) 1073741823))
+ (assert (= (round 1073741823.5d0) 1073741824))
+ (assert (= (round 1073741823.7d0) 1073741824)))