path: root/testsuite/tests/numeric/should_run/T11702.hs

module Main where

testfn :: Word -> IO ()
testfn wseq = do
  print $ wseq `mod` 1

main = do
  testfn 5
  print $ (5 :: Word) `mod` 1