From: simonpj <unknown>
Date: Tue, 8 May 2001 14:39:27 +0000 (+0000)
Subject: [project @ 2001-05-08 14:39:27 by simonpj]
X-Git-Tag: Approximately_9120_patches~1976
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=76573a24b556f35ec9177397f4f574b0fd0af245;p=ghc-hetmet.git

[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
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
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)]