Segfault when reading lots of files

Given the program:

module Main(main) where

import Control.Monad

main :: IO ()
main = do
    putStrLn "Starting segfault..."
    xs <- replicateM 5000 $ do
        src <- readFile "Main.hs"
        src <- length src `seq` return (lines src)
        return $ zipWith (++) src src
    writeFile "out.txt" $ unlines $ concat xs
    src <- readFile $ "out.txt"
    length src `seq` return ()
    putStrLn "Test complete, no segfault"

If I run GHC 7.0.1 on Windows, I see:

$ ghc --make Main.hs && main
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking Main.exe ...
Starting segfault...
Segmentation fault/access violation in generated code

The code segfaults about 50% of the time, slightly more if it has to build the program (since I guess that flushes stuff out of the disk cache, or slows down some operations). This bug has been boiled down from Hoogle, which hits it for real. I haven't been able to reproduce the bug on GHC 6.12.3, but the original bug occurred there too, so I suspect some variant of this bug also effects 6.12.3.

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