Ticket #4306: Test.hs

File Test.hs, 785 bytes (added by Olathe, 4 years ago)

Source file with various UNPACKed combinations.

Line 
1module Test where
2
3data B = B                !Double                !Double
4data C = C {-# UNPACK #-} !Double                !Double
5data D = D {-# UNPACK #-} !Double {-# UNPACK #-} !Double
6
7b (C x y) = sqrt $! (x*x + x*x)
8c (C x y) = sqrt $! (x*x + x*x)
9d (D x y) = sqrt $! (x*x + x*x)
10
11data PPB = PPB                !Double B
12data UPB = UPB {-# UNPACK #-} !Double B
13
14ppb (PPB _ (B x _)) = sqrt $! (x*x + x*x)
15upb (UPB _ (B x _)) = sqrt $! (x*x + x*x)
16
17data PPC = PPC                !Double C
18data UPC = UPC {-# UNPACK #-} !Double C
19
20ppc (PPC _ (C x _)) = sqrt $! (x*x + x*x)
21upc (UPC _ (C x _)) = sqrt $! (x*x + x*x)
22
23data PPD = PPD                !Double D
24data UPD = UPD {-# UNPACK #-} !Double D
25
26ppd (PPD _ (D x _)) = sqrt $! (x*x + x*x)
27upd (UPD _ (D x _)) = sqrt $! (x*x + x*x)