ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T7411.hs

import Control.Exception
import Control.DeepSeq
main = evaluate (('a' : undefined) `deepseq` return () :: IO ())