[Git][ghc/ghc][master] Add test for T22671

[Marge Bot (@marge-bot)]

Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC


Commits:
1c050ed2 by Matthew Pickering at 2023-01-24T05:39:08-05:00
Add test for T22671

This was fixed by b13c6ea5

Closes #22671

- - - - -


2 changed files:

- + testsuite/tests/numeric/should_run/T22671.hs
- testsuite/tests/numeric/should_run/all.T


Changes:

=====================================
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")


=====================================
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'])



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1c050ed26f50f3a8788e650f23d6ff55badc1072

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1c050ed26f50f3a8788e650f23d6ff55badc1072
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230124/4a60012a/attachment.html>