program fails with "Segmentation fault/access violation in generated code"

I have the following program:

module Main where

import Control.Concurrent.Chan
import Control.Concurrent
import Control.Monad

main = forever $ do
    c <- newChan
    mapM_ (\ix -> writeChan c "test") [1..500000]
    mapM_ (\ix -> writeChan c "test") [1..500000]

    c <- newChan
    forkIO $ mapM_ (\ix -> writeChan c "test") [1..500000]
    mapM_ (\ix -> readChan c) [1..500000]

Compiling and running I get this behaviour:

I:\haskell>ghc -O error.hs
[1 of 1] Compiling Main             ( error.hs, error.o )
Linking error.exe ...

I:\haskell>error
Segmentation fault/access violation in generated code

If the program doesn't crash after about 30seconds you may have to cancel and restart it, as it sometimes seems to run forever without crashing.

I have tested the binary on another Windows machine and got the same crash, so a hardware problem seems unlikely.

Trac metadata

Trac field	Value
Version	7.0.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Runtime System
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture