testsuite/tests/lib/integer/bignumMatch.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE MagicHash #-}
{-# OPTIONS_GHC -ddump-rule-firings -O0 -v0 #-}

module Test where

import GHC.Num.Integer

foo :: Integer
foo = IS 45# `integerAdd` (IS 0# `integerMul` IS 18#)