[GHC] #11296: T8726 fails on arm

[GHC]

#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