From 76573a24b556f35ec9177397f4f574b0fd0af245 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 8 May 2001 14:39:27 +0000
Subject: [PATCH] [project @ 2001-05-08 14:39:27 by simonpj] Add parallel list
 comp test

---
 ghc/tests/typecheck/should_run/tcrun013.hs     |   10 ++++++++++
 ghc/tests/typecheck/should_run/tcrun013.stdout |    1 +
 2 files changed, 11 insertions(+)
 create mode 100644 ghc/tests/typecheck/should_run/tcrun013.hs
 create mode 100644 ghc/tests/typecheck/should_run/tcrun013.stdout

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