1testF :: Float -> Bool 2testF x = x == 0 && not (isNegativeZero x) 3 4testD :: Double -> Bool 5testD x = x == 0 && not (isNegativeZero x) 6 7main :: IO () 8main = do print $ testF (-0.0) 9 print $ testD (-0.0) 10