diff options
Diffstat (limited to 'testsuite/tests/numeric')
| -rw-r--r-- | testsuite/tests/numeric/should_run/arith016.hs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/testsuite/tests/numeric/should_run/arith016.hs b/testsuite/tests/numeric/should_run/arith016.hs index 1437b8799d..a219b5575e 100644 --- a/testsuite/tests/numeric/should_run/arith016.hs +++ b/testsuite/tests/numeric/should_run/arith016.hs @@ -2,18 +2,19 @@ module Main where -import GHC.Exts ( Float(F#), - eqFloat#, neFloat#, ltFloat#, - leFloat#, gtFloat#, geFloat# +import GHC.Exts ( Float(F#), + eqFloat#, neFloat#, ltFloat#, + leFloat#, gtFloat#, geFloat#, + isTrue# ) fcmp_eq, fcmp_ne, fcmp_lt, fcmp_le, fcmp_gt, fcmp_ge :: (String, Float -> Float -> Bool) -fcmp_eq = ("==", \ (F# a) (F# b) -> a `eqFloat#` b) -fcmp_ne = ("/=", \ (F# a) (F# b) -> a `neFloat#` b) -fcmp_lt = ("< ", \ (F# a) (F# b) -> a `ltFloat#` b) -fcmp_le = ("<=", \ (F# a) (F# b) -> a `leFloat#` b) -fcmp_gt = ("> ", \ (F# a) (F# b) -> a `gtFloat#` b) -fcmp_ge = (">=", \ (F# a) (F# b) -> a `geFloat#` b) +fcmp_eq = ("==", \ (F# a) (F# b) -> isTrue# (a `eqFloat#` b)) +fcmp_ne = ("/=", \ (F# a) (F# b) -> isTrue# (a `neFloat#` b)) +fcmp_lt = ("< ", \ (F# a) (F# b) -> isTrue# (a `ltFloat#` b)) +fcmp_le = ("<=", \ (F# a) (F# b) -> isTrue# (a `leFloat#` b)) +fcmp_gt = ("> ", \ (F# a) (F# b) -> isTrue# (a `gtFloat#` b)) +fcmp_ge = (">=", \ (F# a) (F# b) -> isTrue# (a `geFloat#` b)) float_fns = [fcmp_eq, fcmp_ne, fcmp_lt, fcmp_le, fcmp_gt, fcmp_ge] |