ghc/tests/codeGen/should_run/cg045.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module Main (main,myseq) where
   4
   5 import PrelGHC
   6 import PrelErr
   7
   8 main = seq (error "hello world!" :: Int) (return ())
   9
  10 myseq :: a -> b -> b
  11 myseq  x y = case (seq#  x) of { 0# -> seqError; _ -> y }