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