diff options
| -rw-r--r-- | testsuite/tests/perf/should_run/T13623.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/perf/should_run/T13623.stdout | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/testsuite/tests/perf/should_run/T13623.hs b/testsuite/tests/perf/should_run/T13623.hs index 7a048b2a36..83004f32ac 100644 --- a/testsuite/tests/perf/should_run/T13623.hs +++ b/testsuite/tests/perf/should_run/T13623.hs @@ -4,6 +4,7 @@ module Main where +import Data.Int import GHC.Types @@ -16,7 +17,9 @@ foo = \i j -> sfoldl' (+) 0 $ xs i j +++ ys i j {-# Inline foo #-} -main = do { n <- foo 1 1; print n } +-- We narrow the result to 32-bits to account for the fact that this overflows +-- on 32-bit machines. +main = do { n <- foo 1 1; print (fromIntegral n :: Int32) } diff --git a/testsuite/tests/perf/should_run/T13623.stdout b/testsuite/tests/perf/should_run/T13623.stdout index ac3eff3654..c94819c4ba 100644 --- a/testsuite/tests/perf/should_run/T13623.stdout +++ b/testsuite/tests/perf/should_run/T13623.stdout @@ -1 +1 @@ -65000250000 +575740560 |