blob: 371c3388e9eeb0569eb5913021991bcd583872b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE MagicHash #-}
module T13610 where
import GHC.Prim
import GHC.Types
main = do
let primDouble = 0.42## :: Double#
let double = 0.42 :: Double
IO (\s -> mkWeakNoFinalizer# double () s)
|