Hallo,
I am using ghc 4.00 on i386 Linux with gcc version 2.8.1
I compiled the following program by
ghc Main.hs
and run ./a.out
This program do not terminate and this is very strange for me. (The
program
is a tracked down version of my real program.)
module Main where
main :: IO ()
main = case sys of
[] -> error "1"
_ -> error "2"
sys = id $
[ ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [C2 "a" []]] (C2 "a" []))
, ("x", C3 [C2 "a" [C2 "a" []]] (C2 "a" []))
, ("x", C3 [C2 "a" [C2 "a" []]] (C2 "a" []))
, ("x", C3 [C2 "a" [C2 "a" []],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [C2 "a" []],C2 "a" []] (C2 "a" []))
, ("x", C3 [C2 "a" [],C2 "a" [C2 "a" []]] (C2 "a" []))
, ("x", C3 [] (C2 "a" []))
, ("x", C3 [] (C2 "a" []))
, ("x", C3 [C2 "a" []] (C2 "a" []))
]
data T = C2 String [T]
| C3 [T] T
---
Joachim Schmid
mail: [EMAIL PROTECTED]
