diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/lib/integer/T19170.hs | 11 | ||||
| -rw-r--r-- | testsuite/tests/lib/integer/T19170.stdout | 3 | ||||
| -rw-r--r-- | testsuite/tests/lib/integer/all.T | 1 |
3 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/lib/integer/T19170.hs b/testsuite/tests/lib/integer/T19170.hs new file mode 100644 index 0000000000..0221c8f6bc --- /dev/null +++ b/testsuite/tests/lib/integer/T19170.hs @@ -0,0 +1,11 @@ +module Main where + +import Data.Bits +import GHC.Natural +import GHC.Num.Natural + +main :: IO () +main = do + print $ (shiftL 0 65 :: Natural) + print $ naturalCheck (shiftL 0 65 :: Natural) + print $ shiftL 0 65 == (0 :: Natural) diff --git a/testsuite/tests/lib/integer/T19170.stdout b/testsuite/tests/lib/integer/T19170.stdout new file mode 100644 index 0000000000..e5b81d9189 --- /dev/null +++ b/testsuite/tests/lib/integer/T19170.stdout @@ -0,0 +1,3 @@ +0 +True +True diff --git a/testsuite/tests/lib/integer/all.T b/testsuite/tests/lib/integer/all.T index 3f45423730..f279be2f81 100644 --- a/testsuite/tests/lib/integer/all.T +++ b/testsuite/tests/lib/integer/all.T @@ -12,6 +12,7 @@ test('integerGcdExt', [], compile_and_run, ['']) test('integerRecipMod', [], compile_and_run, ['']) test('bignumMatch', [], compile, ['']) test('T18813', [], compile_and_run, ['']) +test('T19170', [], compile_and_run, ['']) # skip ghci as it doesn't support unboxed tuples test('integerImportExport', [omit_ways(['ghci'])], compile_and_run, ['']) |