diff --git a/regression/Makefile b/regression/Makefile index edcebb801..3682f63a3 100644 --- a/regression/Makefile +++ b/regression/Makefile @@ -1,4 +1,4 @@ -TESTS=test001 test002 test003 test004 test005 test006 test007 test008 test009 test010 test011 test012 test013 test014 test015 test016 test017 test018 test019 test020 test021 test022 test023 test024 test025 test026 test027 test028 test029 test030 test031 +TESTS=$(basename $(wildcard test*.expr)) RC=../src/rc.opt diff --git a/regression/orig/test032.log b/regression/orig/test032.log new file mode 100644 index 000000000..884b6b88a --- /dev/null +++ b/regression/orig/test032.log @@ -0,0 +1,36 @@ +> 1 +2 +3 +4 +5 +6 +7 +8 +9 +2 +3 +4 +5 +6 +7 +8 +9 +10 +3 +5 +7 +9 +11 +13 +15 +17 +19 +5 +13 +29 +61 +125 +253 +509 +1021 +2045 diff --git a/regression/orig/test033.log b/regression/orig/test033.log new file mode 100644 index 000000000..923723a8f --- /dev/null +++ b/regression/orig/test033.log @@ -0,0 +1,2 @@ +> 55 +15 diff --git a/regression/test032.expr b/regression/test032.expr new file mode 100644 index 000000000..2cc53fe7e --- /dev/null +++ b/regression/test032.expr @@ -0,0 +1,12 @@ +fun ack (m, n) { + if m == 0 then return n+1 + elif m > 0 && n == 0 then return ack (m-1, 1) + else return ack (m-1, ack (m, n-1)) + fi +} + +for m := 0, m <= 3, m := m+1 do + for n := 0, n <= 8, n := n+1 do + write (ack (m, n)) + od +od \ No newline at end of file diff --git a/regression/test032.input b/regression/test032.input new file mode 100644 index 000000000..573541ac9 --- /dev/null +++ b/regression/test032.input @@ -0,0 +1 @@ +0 diff --git a/regression/test033.expr b/regression/test033.expr new file mode 100644 index 000000000..f26c389dd --- /dev/null +++ b/regression/test033.expr @@ -0,0 +1,12 @@ +fun test (n, m) local i, s { + s := 0; + for i := 0, i <= n, i := i + 1 do + s := s + i; + if s > m then return s fi + od; + + return s +} + +write (test (10, 100)); +write (test (100, 10)) \ No newline at end of file diff --git a/regression/test033.input b/regression/test033.input new file mode 100644 index 000000000..573541ac9 --- /dev/null +++ b/regression/test033.input @@ -0,0 +1 @@ +0