id,summary,reporter,owner,description,type,status,priority,milestone,component,version,resolution,keywords,cc,os,architecture,failure,difficulty,testcase,blockedby,blocking,related
407,Segfault when using -xc to smoke out a <<loop>>,blamario,simonmar,"{{{
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. 

}}}",bug,closed,normal,,Runtime System,6.4,Fixed,,,,,,,,,,