diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_run')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T10870.hs | 11 | ||||
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T10870.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/codeGen/should_run/all.T | 1 |
3 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/T10870.hs b/testsuite/tests/codeGen/should_run/T10870.hs new file mode 100644 index 0000000000..642ef2c1ff --- /dev/null +++ b/testsuite/tests/codeGen/should_run/T10870.hs @@ -0,0 +1,11 @@ +import Data.Bits +import Data.Int +import Data.Word + +unsafeShift32R :: (Bits a, Num a) => a -> a +unsafeShift32R x = unsafeShiftR x 32 + +main :: IO () +main = do + print $ map unsafeShift32R [ 123456, 0x7fffffff :: Int ] + print $ map unsafeShift32R [ 123456, 0xffffffff :: Word ] diff --git a/testsuite/tests/codeGen/should_run/T10870.stdout b/testsuite/tests/codeGen/should_run/T10870.stdout new file mode 100644 index 0000000000..945f244e36 --- /dev/null +++ b/testsuite/tests/codeGen/should_run/T10870.stdout @@ -0,0 +1,2 @@ +[0,0] +[0,0] diff --git a/testsuite/tests/codeGen/should_run/all.T b/testsuite/tests/codeGen/should_run/all.T index ab2ce60cca..13eda788de 100644 --- a/testsuite/tests/codeGen/should_run/all.T +++ b/testsuite/tests/codeGen/should_run/all.T @@ -138,3 +138,4 @@ test('T10414', [only_ways(['threaded2']), extra_ways(['threaded2'])], compile_and_run, ['-feager-blackholing']) test('T10521', normal, compile_and_run, ['']) test('T10521b', normal, compile_and_run, ['']) +test('T10870', normal, compile_and_run, ['']) |