[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / GHC_ONLY / cg032 / Main.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