ghc-exactprint-0.5.3.1: tests/examples/ghc80/T7411.hs

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