testsuite/tests/codeGen/should_compile/T18614.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE MagicHash, UnboxedTuples #-}
{-# OPTIONS_GHC -O #-}

module Main where

import GHC.Exts

main = pure ()

test :: Word8# -> Word8#
test x = x `plusWord8#` narrowWord8# 1##