Ticket #4306: Test.hs

module Test where

data B = B                !Double                !Double
data C = C {-# UNPACK #-} !Double                !Double
data D = D {-# UNPACK #-} !Double {-# UNPACK #-} !Double

b (C x y) = sqrt $! (x*x + x*x)
c (C x y) = sqrt $! (x*x + x*x)
d (D x y) = sqrt $! (x*x + x*x)

data PPB = PPB                !Double B
data UPB = UPB {-# UNPACK #-} !Double B

ppb (PPB _ (B x _)) = sqrt $! (x*x + x*x)
upb (UPB _ (B x _)) = sqrt $! (x*x + x*x)

data PPC = PPC                !Double C
data UPC = UPC {-# UNPACK #-} !Double C

ppc (PPC _ (C x _)) = sqrt $! (x*x + x*x)
upc (UPC _ (C x _)) = sqrt $! (x*x + x*x)

data PPD = PPD                !Double D
data UPD = UPD {-# UNPACK #-} !Double D

ppd (PPD _ (D x _)) = sqrt $! (x*x + x*x)
upd (UPD _ (D x _)) = sqrt $! (x*x + x*x)