Segfault when using -xc to smoke out a <<loop>>

The following program illustrates the problem:

module Main where

data T k = T | S k deriving Show

test :: T k
test = test

main :: IO ()
main = putStrLn $ show (test :: T Int)

When compiled with
   ghc --make Main.hs
and run, the program outputs "<<loop>>". Which is fine.
However, when compiled with
   ghc --make Main.hs -prof -auto-all
and run with
   ./a.out +RTS -xc -RTS
the result is a segmentation fault. There is no stack
trace.

The test was done on Gentoo Linux, the CPU is Athlon XP. 

Trac metadata

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