testsuite/tests/simplCore/should_compile/T18668.hs


1
2
3
4
5
6
7
8
9
10
11

{-# OPTIONS_GHC -O -ddump-rule-rewrites #-}
{-# LANGUAGE MagicHash #-}

module T18668 where

import GHC.Exts

{-# RULES "funky" (+#) = (*#) #-}
{-# RULES "flip" forall x. (>#) x = (<#) x #-}

x = (I# (2# +# 3#), I# (1# ># 0#))