From 85ce956f28fd9715d1c943a9f02e5fdde00d2d01 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 2 Aug 2011 14:31:37 -0400 Subject: Introduce URWEB_STACK_SIZE environment variable (based on a patch by Hao Deng) --- tests/overflow.ur | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 tests/overflow.ur (limited to 'tests/overflow.ur') diff --git a/tests/overflow.ur b/tests/overflow.ur new file mode 100644 index 00000000..09edc5a3 --- /dev/null +++ b/tests/overflow.ur @@ -0,0 +1,8 @@ +fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1) + +fun doit {N = n} = return {[List.length (makeList (readError n))]} + +fun main () = + return + -- cgit v1.2.3