ghc/tests/codeGen/should_run/cg047.hs

   1 module Main where
   2
   3 --              GHC 4.04
   4 -- I've been having problems getting GHC to compile some code I'm working
   5 -- on with optimisation (-O) turned on.  Compilation is fine without -O
   6 -- specified.  Through a process of elimination I've managed to reproduce
   7 -- the problemin the following (much simpler) piece of code:
   8
   9 import List
  10
  11 test es =
  12   concat (groupBy eq (zip [0..(length es) - 1] es))
  13   where
  14   eq a b = (fst a) == (fst b)
  15
  16 main = putStr (show (test [1,2,3,4]))
  17
  18