1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/tcfail168.stderr b/testsuite/tests/typecheck/should_fail/tcfail168.stderr
new file mode 100644
index 0000000000..f16f65bdb1
--- /dev/null
+++ b/testsuite/tests/typecheck/should_fail/tcfail168.stderr
@@ -0,0 +1,12 @@
+
+tcfail168.hs:8:11:
+    Couldn't match expected type `Char -> a0' with actual type `IO ()'
+    In the return type of a call of `putChar'
+    Probable cause: `putChar' is applied to too many arguments
+    In a stmt of a 'do' block: putChar 'a'
+    In the expression:
+      do { putChar;
+           putChar 'a';
+           putChar 'a';
+           putChar 'a';
+           .... }