ghc/tests/codeGen/should_run/cg018.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)