Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC Commits: d175aff8 by Sylvain Henry at 2025-08-12T10:01:31-04:00 Add regression test for #18619 - - - - - 3 changed files: - + testsuite/tests/numeric/should_run/T18619.hs - + testsuite/tests/numeric/should_run/T18619.stderr - testsuite/tests/numeric/should_run/all.T Changes: ===================================== testsuite/tests/numeric/should_run/T18619.hs ===================================== @@ -0,0 +1,7 @@ +module Main where + +import Data.Bits + +main :: IO () +main = do + print $ Data.Bits.shiftL (1 :: Integer) ((-1) :: Int) ===================================== testsuite/tests/numeric/should_run/T18619.stderr ===================================== @@ -0,0 +1,3 @@ +T18619: Uncaught exception ghc-internal:GHC.Internal.Exception.Type.ArithException: + +arithmetic overflow ===================================== testsuite/tests/numeric/should_run/all.T ===================================== @@ -87,3 +87,4 @@ test('T24066', normal, compile_and_run, ['']) test('div01', normal, compile_and_run, ['']) test('T24245', normal, compile_and_run, ['']) test('T25653', normal, compile_and_run, ['']) +test('T18619', exit_code(1), compile_and_run, ['']) View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d175aff8ad6bb982c4b6e12993f6b4e8... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/d175aff8ad6bb982c4b6e12993f6b4e8... You're receiving this email because of your account on gitlab.haskell.org.