Embrace -XTypeInType, add -XStarIsType
[ghc.git] / testsuite / tests / simplCore / should_run / T5603.hs
1
2 {-# LANGUAGE MagicHash #-}
3
4 module Main (main) where
5
6 import GHC.Base
7 import GHC.Integer.GMP.Internals
8
9 main :: IO ()
10 main = (encodeDouble 0 :: Double) `seq` return ()
11
12 {-# INLINE encodeDouble #-}
13 encodeDouble :: Integer -> Double
14 encodeDouble (S# _) = D# 3.0##
15 encodeDouble (Jp# _) = D# 4.0##
16 encodeDouble (Jn# _) = D# 5.0##