blob: 76669ec6b7ab17314fad11244164da1c3791a68c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{-# LANGUAGE MagicHash #-}
-- !!! test of datatype with many unboxed fields
--
import GHC.Base( Float# )
import GHC.Float
main = print (selectee1 + selectee2)
data Tfo = Tfo Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float#
yyy = (Tfo (-0.0018#) (-0.8207#) (0.5714#)
(0.2679#) (-0.5509#) (-0.7904#)
(0.9634#) (0.1517#) (0.2209#)
(0.0073#) (8.4030#) (0.6232#))
xxx = (Tfo (-0.8143#) (-0.5091#) (-0.2788#)
(-0.0433#) (-0.4257#) (0.9038#)
(-0.5788#) (0.7480#) (0.3246#)
(1.5227#) (6.9114#) (-7.0765#))
selectee1 = F# (case xxx of
Tfo _ _ _ _ _ _ _ x _ _ _ _ -> x)
selectee2 = F# (case xxx of
Tfo _ _ y _ _ _ _ _ _ _ _ _ -> y)
|
