1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/deriving/should_run/drvrun014.hs b/testsuite/tests/deriving/should_run/drvrun014.hs
new file mode 100644
index 0000000000..806af8ce1c
--- /dev/null
+++ b/testsuite/tests/deriving/should_run/drvrun014.hs
@@ -0,0 +1,19 @@
+-- This one gave the wrong answer with ghci 5.02.3 (and 5.02.2)
+
+module Main where
+
+infixr 3 :*
+infixr 2 :+
+
+data RE a = RE a :+ RE a
+          | RE a :* RE a
+          | Cat  [RE a]
+          | Star (RE a)
+          | Plus (RE a)
+          | Opt  (RE a)
+          | Comp (RE a)
+          | Empty
+          | Str  [a]
+            deriving (Show, Eq, Ord)
+
+main = print (Str "ab" == (Str "a" :+ Str "b"))