ghc/tests/codeGen/should_run/cg032.hs

   1 -- !! pattern-matching failure on functions that return Int#
   2
   3 import PrelBase --ghc1.3
   4
   5 main = putStr (shows (I# (foo bar1 bar2)) "\n")
   6   where
   7     bar1 = Bar1 40 (39,38) resps
   8     bar2 = Bar1  2 ( 1, 0) resps
   9     resps = error "1.2 responses"
  10
  11 data Response = Response -- stub
  12
  13 data Bar
  14   = Bar1 Int (Int,Int) [Response]
  15   | Bar2 Int Int#
  16   | Bar3 Int
  17
  18 foo :: Bar -> Bar -> Int#
  19
  20 foo (Bar1 (I# i) _ _) (Bar1 (I# j) _ _) = i +# j