[GHC] #1067: assertion failure in Schedule.c

[GHC]

#1067: assertion failure in Schedule.c
----------------------------+-----------------------------------------------
 Reporter:  ms43            |          Owner:          
     Type:  bug             |         Status:  new     
 Priority:  normal          |      Milestone:  6.6.1   
Component:  Runtime System  |        Version:  6.6     
 Severity:  normal          |     Resolution:          
 Keywords:                  |     Difficulty:  Unknown 
 Testcase:                  |   Architecture:  Multiple
       Os:  Linux           |  
----------------------------+-----------------------------------------------
Changes (by igloo):

  * milestone:  => 6.6.1

Comment:

 This bug is also present in the HEAD. Here's a less noisy testcase:
 {{{
 import Control.Concurrent
 import Control.Exception

 main = do
         master <- myThreadId
         handle (const main) $ do
                 sequence $ replicate 3 $
                         forkIO $ do t <- myThreadId
                                     putStrLn ("Start " ++ show t)
                                     threadDelay one_second
                                     putStrLn ("End " ++ show t)
                                     throwTo master NonTermination
                                     putStrLn ("Thrown " ++ show t)
                 threadDelay (10 * one_second)

 one_second :: Int
 one_second = 1000000
 }}}

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