diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_run/cgrun018.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/cgrun018.hs | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/cgrun018.hs b/testsuite/tests/codeGen/should_run/cgrun018.hs new file mode 100644 index 0000000000..49f9800cb6 --- /dev/null +++ b/testsuite/tests/codeGen/should_run/cgrun018.hs @@ -0,0 +1,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) |