@@ -20,16 +20,14 @@ function rounding_check(op, base_op, arrays...)
2020 elt = eltype (first (arrays))
2121 setrounding_raw (elt, to_fenv (RoundNearest))
2222
23- @eval begin
24- up_calc = broadcast ($ (Symbol (op, " _up" )), $ (arrays... ))
25- down_calc = broadcast ($ (Symbol (op, " _down" )), $ (arrays... ))
23+ up_calc = @eval broadcast ($ (Symbol (op, " _up" )), $ (arrays... ))
24+ down_calc = @eval broadcast ($ (Symbol (op, " _down" )), $ (arrays... ))
2625
27- setrounding_raw ($ elt, to_fenv (RoundUp))
28- up_raw = broadcast ($ base_op, $ (arrays... ))
29-
30- setrounding_raw ($ elt, to_fenv (RoundDown))
31- down_raw = broadcast ($ base_op, $ (arrays... ))
32- end
26+ setrounding_raw (elt, to_fenv (RoundUp))
27+ up_raw = @eval broadcast ($ base_op, $ (arrays... ))
28+
29+ setrounding_raw (elt, to_fenv (RoundDown))
30+ down_raw = @eval broadcast ($ base_op, $ (arrays... ))
3331
3432 # Compare
3533 for (calc, raw, args) in zip (up_calc, up_raw, zip (arrays... ))
@@ -40,7 +38,7 @@ function rounding_check(op, base_op, arrays...)
4038 @test compare_calc_raw (op, " down" , calc, raw, args)
4139 end
4240
43- setrounding_raw (elt, to_fenv (RoundNearest))
41+ setrounding_raw (elt, to_fenv (RoundNearest))
4442end
4543
4644rounding_check_unary (a:: AbstractVector ) = rounding_check (:sqrt , :sqrt , a)
0 commit comments