add test from #5363

testsuite/tests/profiling/should_run/T5363.hs

+import Data.Array.Unboxed
+
+main = do
+  let l1 = [1..10] :: [Int]
+  let l2 = [ map (i+) l1 | i <- [1..500000] ]
+  let l3 = map (\l -> listArray (1,length l) l) l2 :: [UArray Int Int]
+  print $ accumulate l3 0
+
+accumulate [] rv = rv
+accumulate (h:t) rv =
+  let nextRv = (rv + sum (elems h)) in
+  accumulate t $! nextRv

testsuite/tests/profiling/should_run/T5363.stdout

+1250030000000

testsuite/tests/profiling/should_run/all.T

@@ -107,3 +107,9 @@ test('callstack001',
 test('callstack002',
      [ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
      compile_and_run, ['-fprof-auto-calls -fno-full-laziness -fno-state-hack'])
+
+# Should not stack overflow with -prof -auto-all
+test('T5363',
+     [ req_profiling, extra_ways(['prof']), only_ways(prof_ways) ],
+     compile_and_run, [''])
+