[GHC] #11317: Test prog003 fails with segfault on Windows (GHCi)

[GHC]

#11317: Test prog003 fails with segfault on Windows (GHCi)
---------------------------------+----------------------------------------
        Reporter:  rdragon       |                Owner:
            Type:  bug           |               Status:  new
        Priority:  normal        |            Milestone:
       Component:  GHCi          |              Version:  7.11
      Resolution:                |             Keywords:  GC
Operating System:  Windows       |         Architecture:  Unknown/Multiple
 Type of failure:  GHCi crash    |            Test Case:  prog003
      Blocked By:                |             Blocking:
 Related Tickets:  #11234 #3408  |  Differential Rev(s):
       Wiki Page:                |
---------------------------------+----------------------------------------

Comment (by bgamari):

 This failure is actually quite flaky. It seems to fail most of the time,
 but occasionally doesn't.

 Unfortunately gdb isn't of much help here,
 {{{
 GHCi, version 8.1.20161216: http://www.haskell.org/ghc/  :? for help
 [New Thread 7512.0xb0c]
 Warning: ignoring unrecognised input `prog003.script'
 Prelude> :script prog003.script
 [1 of 1] Compiling Main             ( shell.hs, interpreted )
 Ok, modules loaded: Main.
 Run 1
 [1 of 4] Compiling D                ( D.hs, interpreted )
 [2 of 4] Compiling C                ( C.hs, interpreted )
 [3 of 4] Compiling B                ( B.hs, interpreted )
 [4 of 4] Compiling A                ( A.hs, interpreted )
 Ok, modules loaded: A, B, C, D.
 a :: Int -> Int
 168
 Run 2
 [1 of 4] Compiling D                ( D.hs, interpreted )
 [2 of 4] Compiling C                ( C.hs, interpreted ) [D changed]
 [3 of 4] Compiling B                ( B.hs, interpreted ) [D changed]
 [4 of 4] Compiling A                ( A.hs, interpreted ) [B changed]
 Ok, modules loaded: A, B, C, D.
 (A.a,B.b,C.c,D.d)
   :: (Float -> Float, Float -> Float, Float -> Float, Float -> Float)
 28.0
 Run 3
 Ok, modules loaded: A, B, C, D.
 (A.a,B.b,C.c,D.d)
   :: (Float -> Float, Float -> Float, Float -> Float, Float -> Float)
 28.0
 Run 4
 [2 of 4] Compiling C                ( C.hs, interpreted )
 [3 of 4] Compiling B                ( B.hs, interpreted )
 [4 of 4] Compiling A                ( A.hs, interpreted )
 Ok, modules loaded: A, B, C, D (D.o).
 (A.a,B.b,C.c,D.d)
   :: (Float -> Float, Float -> Float, Float -> Float, Float -> Float)
 28.0
 Run 5
 [3 of 4] Compiling B                ( B.hs, interpreted )
 [4 of 4] Compiling A                ( A.hs, interpreted )
 Ok, modules loaded: A, B, C (C.o), D (D.o).
 (A.a,B.b,C.c,D.d)
   :: (Float -> Float, Float -> Float, Float -> Float, Float -> Float)
 28.0
 Run 6
 [4 of 4] Compiling A                ( A.hs, interpreted )
 Ok, modules loaded: A, B (B.o), C (C.o), D (D.o).
 (A.a,B.b,C.c,D.d)
   :: (Float -> Float, Float -> Float, Float -> Float, Float -> Float)
 28.0
 Run 7

 Program received signal SIGSEGV, Segmentation fault.
 0x000000000af36d2f in ?? ()
 (gdb) bt
 #0  0x000000000af36d2f in ?? ()
 Backtrace stopped: previous frame identical to this frame (corrupt stack?)
 (gdb)
 }}}

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/11317#comment:8>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler