testsuite/tests/lib/integer/T19345.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# OPTIONS_GHC -O #-}
module Main where

import Numeric.Natural
  ( Natural )

a, q :: Natural
a = fromIntegral ( 18446744073709551616 :: Integer )
q = 18446744073709551616

main :: IO ()
main = print ( fromIntegral ( a `div` q ) :: Word )