testsuite/tests/simplCore/should_compile/T12076sat.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE MagicHash #-}
module T12076sat where

-- This test demonstrates that we need to saturate
-- primops even when they don't occur in function position.

import GHC.Exts

f = I# (dataToTag# timesWord#)