[project @ 2001-05-08 14:39:27 by simonpj]

Add parallel list comp test

diff --git a/ghc/tests/typecheck/should_run/tcrun013.hs b/ghc/tests/typecheck/should_run/tcrun013.hs
new file mode 100644 (file)
index 0000000..37385d9
--- /dev/null
+++ b/ghc/tests/typecheck/should_run/tcrun013.hs
@@ -0,0 +1,10 @@
+{-# OPTIONS -fglasgow-exts #-}
+
+-- !!! Parallel list comprehensions
+
+module Main where
+
+f xs = [ (x,y) | x <- xs, x>3 | y <- xs ]
+
+main = print (f [0..10])
+

diff --git a/ghc/tests/typecheck/should_run/tcrun013.stdout b/ghc/tests/typecheck/should_run/tcrun013.stdout
new file mode 100644 (file)
index 0000000..bb1e684
--- /dev/null
+++ b/ghc/tests/typecheck/should_run/tcrun013.stdout
@@ -0,0 +1 @@
+[(4,0),(5,1),(6,2),(7,3),(8,4),(9,5),(10,6)]