[GHC] #3591: A working program reports <<loop>> when compiled with -O

[GHC]

#3591: A working program reports <<loop>> when compiled with -O
---------------------+------------------------------------------------------
Reporter:  blamario  |          Owner:                
    Type:  bug       |         Status:  new           
Priority:  normal    |      Component:  Compiler      
 Version:  6.10.4    |       Severity:  normal        
Keywords:            |       Testcase:                
      Os:  Linux     |   Architecture:  x86_64 (amd64)
---------------------+------------------------------------------------------
 If the attached module Trampoline.hs is compiled with no optimizations it
 works:

 {{{
 $ ghc --make Trampoline.hs
 [1 of 1] Compiling Main             ( Trampoline.hs, Trampoline.o )
 Linking Trampoline ...
 $ ./Trampoline
 ...
 ((5,2),(1,2,6))
 $
 }}}

 With optimizations on, it hangs:

 {{{
 $ ghc --make Trampoline.hs -O
 [1 of 1] Compiling Main             ( Trampoline.hs, Trampoline.o )
 Linking Trampoline ...
 $ ./Trampoline
 bounce start
 bounce end
 liftOut
 inject suspend
 Trampoline: <<loop>>
 }}}

 That doesn't seem right. Oh, GHCi runs it with no problem as well.

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/3591>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler