#11296: T8726 fails on arm -------------------------------------+------------------------------------- Reporter: bgamari | Owner: bgamari Type: bug | Status: new Priority: normal | Milestone: 8.0.1 Component: Compiler | Version: 7.10.3 Resolution: | Keywords: Operating System: Linux | Architecture: arm Type of failure: Incorrect result | Test Case: T8726 at runtime | Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Comment (by bgamari): Hmmm... {{{#!hs n,d :: Integer (n,d) = (-2, 79228162514264337593543950337) f :: Integer -> Integer -> Integer f n d = (n `div` d) * d + (n `mod` d) main :: IO () main = let r = f n d in print (n, r, r-n, r==n, r/=n) }}} results in, {{{ $ inplace/bin/ghc-stage2 -O Hello.hs [1 of 1] Compiling Main ( Hello.hs, Hello.o ) Linking Hello ... $ ./Hello (-2,-2,0,False,True) }}} What a world we live in. -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/11296#comment:1 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler