diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-09-05 19:19:10 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-09-08 10:43:57 -0400 |
| commit | dcc49044e8ac5b905955f99b042449635eb47e64 (patch) | |
| tree | 0083c690169b4ef9437fb41b834e80d43ac482de | |
| parent | a7a960e43c34e40e1656fa1505605f756a44bb71 (diff) | |
| download | haskell-dcc49044e8ac5b905955f99b042449635eb47e64.tar.gz | |
Add failing testcase for #12433
Test Plan: Validate
Reviewers: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2517
GHC Trac Issues: #11433
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T12433.hs | 13 | ||||
| -rw-r--r-- | testsuite/tests/codeGen/should_run/all.T | 1 |
2 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/T12433.hs b/testsuite/tests/codeGen/should_run/T12433.hs new file mode 100644 index 0000000000..f9e64a63d7 --- /dev/null +++ b/testsuite/tests/codeGen/should_run/T12433.hs @@ -0,0 +1,13 @@ +f :: Int -> IO () +f p = case p of + 0 -> return () + 1 -> return () + 2 -> return () + 3 -> return () + 4 -> return () + 10 -> return () + 11 -> return () + _ -> print p +{-# NOINLINE f #-} + +main = f 8 diff --git a/testsuite/tests/codeGen/should_run/all.T b/testsuite/tests/codeGen/should_run/all.T index 42ec7d3e7f..ee8772b567 100644 --- a/testsuite/tests/codeGen/should_run/all.T +++ b/testsuite/tests/codeGen/should_run/all.T @@ -143,3 +143,4 @@ test('T10870', when(wordsize(32), skip), compile_and_run, ['']) test('PopCnt', omit_ways(['ghci']), multi_compile_and_run, ['PopCnt', [('PopCnt_cmm.cmm', '')], '']) test('T12059', normal, compile_and_run, ['']) +test('T12433', expect_broken(12433), compile_and_run, ['']) |