1 -- !!! test of datatype with many unboxed fields
5 main = putStr (shows (selectee1 + selectee2) "\n")
7 data Tfo = Tfo Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float#
9 yyy = (Tfo (-0.0018#) (-0.8207#) (0.5714#)
10 (0.2679#) (-0.5509#) (-0.7904#)
11 (0.9634#) (0.1517#) (0.2209#)
12 (0.0073#) (8.4030#) (0.6232#))
14 xxx = (Tfo (-0.8143#) (-0.5091#) (-0.2788#)
15 (-0.0433#) (-0.4257#) (0.9038#)
16 (-0.5788#) (0.7480#) (0.3246#)
17 (1.5227#) (6.9114#) (-7.0765#))
19 selectee1 = F# (case xxx of
20 Tfo _ _ _ _ _ _ _ x _ _ _ _ -> x)
22 selectee2 = F# (case xxx of
23 Tfo _ _ y _ _ _ _ _ _ _ _ _ -> y)