Commit 11237cf6 authored by ian@well-typed.com's avatar ian@well-typed.com

Add a test for #6037

parent 580fd746
......@@ -536,3 +536,7 @@ T7130:
T7563:
-"$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -C T7563.hs
.PHONY: T6037
T6037:
-LC_ALL=C "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T6037.hs
module T6037 where
fóo :: Int
fóo = ()
T6037.hs:5:7:
Couldn't match expected type `Int' with actual type `()'
In the expression: ()
In an equation for `f?o': f?o = ()
......@@ -364,4 +364,6 @@ test('T7060',
test('T7130', normal, compile_fail, ['-fflul-laziness'])
test('T7563', when(unregisterised(), skip), run_command,
['$MAKE -s --no-print-directory T7563'])
test('T6037', expect_broken(6037), run_command,
['$MAKE -s --no-print-directory T6037'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment