1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ado/ado003.stderr b/testsuite/tests/ado/ado003.stderr
new file mode 100644
index 0000000000..5d04f15896
--- /dev/null
+++ b/testsuite/tests/ado/ado003.stderr
@@ -0,0 +1,9 @@
+
+ado003.hs:7:3: error:
+    Couldn't match expected type ‘Int’ with actual type ‘Char’
+    In the pattern: 'a'
+    In a stmt of a 'do' block: 'a' <- return (3 :: Int)
+    In the expression:
+      do { x <- getChar;
+           'a' <- return (3 :: Int);
+           return () }