testsuite/tests/corelint/T21115.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE MagicHash #-}

module T21115 where

import GHC.Exts (Double#, Int#)

foo :: Double# -> Int#
foo x =
  case x of
    0.0##  -> 2#
    2.0##  -> 3#
    -0.0## -> 4#
    _      -> 5#