--- /dev/null
+// Tests that match cases can be given in the same line as the scrutinee\r
+data FooBar a = Foo a | Bar a\r
+extract x = match x with Foo v -> v ; Bar v -> v\r
+main = extract (Foo (3 :: Integer))\r
+--\r
+3
\ No newline at end of file