[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / GHC_ONLY / cg018 / Main.hs
1 --!!! test of datatype with many unboxed fields
2 --
3 import PrelBase
4
5 main = putStr (shows (selectee1 + selectee2) "\n")
6
7 data Tfo = Tfo Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float#
8
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#))
13
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#))
18
19 selectee1 = F# (case xxx of
20 Tfo _ _ _ _ _ _ _ x _ _ _ _ -> x)
21
22 selectee2 = F# (case xxx of
23 Tfo _ _ y _ _ _ _ _ _ _ _ _ -> y)