diff options
-rw-r--r-- | testsuite/tests/numeric/should_run/T22671.hs | 8 | ||||
-rw-r--r-- | testsuite/tests/numeric/should_run/all.T | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/numeric/should_run/T22671.hs b/testsuite/tests/numeric/should_run/T22671.hs new file mode 100644 index 0000000000..3756d1aef8 --- /dev/null +++ b/testsuite/tests/numeric/should_run/T22671.hs @@ -0,0 +1,8 @@ +module Main where + +import Data.Bits +import Control.Monad + +main :: IO () +main = unless (length (show (1 `shiftL` (1 `shiftL` 20) :: Integer)) == 315653) + (error "Incorrect result for bignum calculation") diff --git a/testsuite/tests/numeric/should_run/all.T b/testsuite/tests/numeric/should_run/all.T index f2854ff1d4..bf6d59323b 100644 --- a/testsuite/tests/numeric/should_run/all.T +++ b/testsuite/tests/numeric/should_run/all.T @@ -79,4 +79,5 @@ test('IntegerToFloat', normal, compile_and_run, ['']) test('T20291', normal, compile_and_run, ['']) test('T22282', normal, compile_and_run, ['']) +test('T22671', normal, compile_and_run, ['']) test('foundation', normal, compile_and_run, ['-O -package transformers']) |