Test case for #8374
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 14 Feb 2014 10:17:52 +0000 (10:17 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 14 Feb 2014 10:17:52 +0000 (10:17 +0000)
tests/T8374.hs [new file with mode: 0644]
tests/T8374.stdout [new file with mode: 0644]
tests/all.T

diff --git a/tests/T8374.hs b/tests/T8374.hs
new file mode 100644 (file)
index 0000000..48f2b23
--- /dev/null
@@ -0,0 +1,4 @@
+module Main where
+
+main :: IO()
+main = print $ length [1..(2^(20::Int)::Integer)]
diff --git a/tests/T8374.stdout b/tests/T8374.stdout
new file mode 100644 (file)
index 0000000..6820bf1
--- /dev/null
@@ -0,0 +1 @@
+1048576
index f722538..0d62dfd 100644 (file)
@@ -154,3 +154,12 @@ test('topHandler03',
       exit_code(143)  # actually signal 15 SIGTERM
      ], compile_and_run, [''])
 
+
+test('T8374',
+        [ stats_num_field('bytes allocated', (16828144, 5)),
+       # with GHC-7.6.3: 83937384 (but faster execution than the next line)
+       # before:         58771216 (without call-arity-analysis)
+       # expected value: 16828144 (2014-01-14)
+       only_ways(['normal'])],
+      compile_and_run,
+      ['-O'])