summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--testsuite/tests/codeGen/should_compile/T21169.hs4
-rw-r--r--testsuite/tests/codeGen/should_compile/all.T5
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_compile/T21169.hs b/testsuite/tests/codeGen/should_compile/T21169.hs
new file mode 100644
index 0000000000..e1beece06a
--- /dev/null
+++ b/testsuite/tests/codeGen/should_compile/T21169.hs
@@ -0,0 +1,4 @@
+module T21169 where
+
+hello :: Int
+hello = error "hello world"
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 9985580e78..dd4d3071e0 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -104,3 +104,8 @@ test('T15570',
# warning: integer constant is so large that it is unsigned
test('T18614', normal, compile, [''])
+
+check_error_not_caffy = 'TODO'
+test('T21169', normal,
+ multimod_compile_filter,
+ ['T21169', '-O -c -ddump-cafanal', check_error_not_caffy])