diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T18589.hs | 12 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 1 |
2 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T18589.hs b/testsuite/tests/simplCore/should_compile/T18589.hs new file mode 100644 index 0000000000..c892bc844e --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T18589.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE MagicHash #-} +module T18589 where + +import GHC.Prim + +-- See Note [Guarding against silly shifts] +-- Make sure that a silly shift is optimized correctly +f1 x = uncheckedIShiftL# x -1# +f2 x = uncheckedIShiftRA# x -1# +f3 x = uncheckedIShiftRL# x -1# +f4 x = uncheckedShiftL# x -1# +f5 x = uncheckedShiftRL# x -1# diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index c033150957..771798ee18 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -332,3 +332,4 @@ test('T18328', [ only_ways(['optasm']), grep_errmsg(r'Arity=') ], compile, ['-dd test('T18347', normal, compile, ['-dcore-lint -O']) test('T18355', [ grep_errmsg(r'OneShot') ], compile, ['-O -ddump-simpl -dsuppress-uniques']) test('T18399', normal, compile, ['-dcore-lint -O']) +test('T18589', normal, compile, ['-dcore-lint -O']) |