ghc/tests/codeGen/should_run/cg008.hs

   1 main = print (length comp_list)
   2  where
   3     comp_list :: [(Int,Int)]
   4     comp_list = [ (elem1,elem2)
   5                 | elem1 <- given_list,
   6                   elem2 <- given_list,
   7                   elem1 >= (4::Int),
   8                   elem2 <  (3::Int)
   9                 ]
  10
  11     given_list :: [Int]
  12     given_list = [1,2,3,4,5,6,7,8,9]