testsuite/tests/lib/integer/gcdInteger.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


{-# LANGUAGE MagicHash #-}

module Main (main) where

import GHC.Base
import GHC.Integer

main :: IO ()
main = case i of
       I# i# ->
           print (gcd (smallInteger i#) (smallInteger i#))

{-# NOINLINE i #-}
i :: Int
i = minBound