path: root/testsuite/tests/codeGen/should_run/T13425.hs

import Data.Bits ((.&.))

flags :: Int -> Int
flags x
  | x .&. 128 > 0 = 12
  | otherwise = 13
{-# NOINLINE flags #-}

main :: IO ()
main = print (flags 255)