ghc/tests/codeGen/should_run/cg018.hs

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