Global definitions; regression tests fixed

regression/test001.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 x := read ();
 y := read ();
 z := x*y*3;

regression/test002.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 x := read (); 
 y := read (); 
 z := y*y; 

regression/test003.expr

@@ -1,3 +1,5 @@
+global x, y;
+
 x := read ();
 y := read ();
 write (x-y);

regression/test004.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 x := read ();
 y := read ();
 z := ((x + y) + (x - y)) + ((x - y) - (x + y));

regression/test005.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 x := read ();
 y := read ();
 z := ((x + y) + (x - y)) + ((x - y) - (x / y));

regression/test006.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 x := read ();
 y := read ();
 z := x < y;

regression/test007.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 x := 1;
 y := 2;
 z := x - y - 3;

regression/test008.expr

@@ -1,2 +1,4 @@
+global z;
+
 z := 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9;
 write (z)

regression/test009.expr

@@ -1,3 +1,5 @@
+global n, k, res;
+
 n := 2;
 k := 10;
 res := 1;

regression/test010.expr

@@ -1,3 +1,5 @@
+global i, s, j;
+
 i := 0;
 s := 0; 
 

regression/test011.expr

@@ -1,3 +1,5 @@
+global x;
+
 x:=0;
 if x
 then write(1)

regression/test012.expr

@@ -1,3 +1,5 @@
+global n;
+
 n := read ();
 while n >= 0 do
   if n > 1

regression/test013.expr

@@ -1,3 +1,5 @@
+global n;
+
 n := read ();
 
 repeat

regression/test014.expr

@@ -1,3 +1,5 @@
+global n;
+
 n := read ();
 
 while n > 0 do

regression/test015.expr

@@ -1,10 +1,11 @@
+global s, n, p;
+
 s := 0;
 n := read ();
 p := 2;
 
-while n > 0 do
-    c := 2;
-    f := 1;
+while n > 0 do {
+    local c = 2, f = 1;
 
     while c*c <= p && f do
       f := (p % c) != 0;
@@ -17,4 +18,5 @@ while n > 0 do
     else skip fi;
 
     p := p + 1
+}    
 od

regression/test016.expr

@@ -1,3 +1,5 @@
+global s, n;
+
 n := read ();
 
 s := 1;

regression/test017.expr

@@ -1,3 +1,5 @@
+global n, fib_1, fib_2, fib, i;
+
 n := read ();
 
 i     := 2;

regression/test018.expr

@@ -1,3 +1,5 @@
+global n, c, p, cc, q, i, m, d;
+
 n := read ();
 
 c := 1;

regression/test019.expr

@@ -1,3 +1,5 @@
+global i, s, j;
+
 i := 0;
 s := 0; 
 

regression/test020.expr

@@ -1,3 +1,5 @@
+global s, n, p, c, f;
+
 s := 0;
 n := read ();
 p := 2;

regression/test021.expr

@@ -1,3 +1,5 @@
+global n, f;
+
 n := read ();
 f := 1;
 

regression/test022.expr

@@ -1,3 +1,5 @@
+global n, fib_1, fib_2, fib, i;
+
 n := read ();
 
 fib_1 := 1;

regression/test023.expr

@@ -1,3 +1,5 @@
+global s, n;
+
 s := 0;
 
 repeat

regression/test024.expr

@@ -6,6 +6,8 @@ fun test2 (b) {
   a := b
 }
 
+global x, a, b;
+
 x := read ();
 
 test1 ();

regression/test025.expr

@@ -1,3 +1,5 @@
+global x, a, b, c;
+
 fun test1 (a) {
   write (a)
 }

regression/test026.expr

@@ -1,3 +1,5 @@
+global x, a, b, c;
+
 fun test1 (a) {
   write (a);
   print ()

regression/test027.expr

@@ -1,3 +1,5 @@
+global x, a, b, c;
+
 fun print () {
   write (a);
   write (b);

regression/test028.expr

@@ -1,3 +1,5 @@
+global n, i, result;
+
 fun fact (n) {
   if n <= 1
   then result := 1

regression/test029.expr

@@ -1,3 +1,5 @@
+global i, n, result;
+
 fun fib (n) {
   local r;
   if n <= 1

regression/test030.expr

@@ -1,3 +1,5 @@
+global n, i;
+
 fun fib (n) {
   if n <= 1
   then return 1

regression/test031.expr

@@ -1,3 +1,5 @@
+global n, i;
+
 fun fact (n) {
   if n <= 1
   then return 1

regression/test032.expr

@@ -1,3 +1,5 @@
+global x, m, n;
+
 fun ack (m, n) {
   if m == 0 then return (n+1)
   elif m > 0 && n == 0 then return ack (m-1, 1)

regression/test033.expr

@@ -1,3 +1,5 @@
+global x;
+
 fun test (n, m) {
   local i, s;
   s := 0;

regression/test034.expr

@@ -1,3 +1,5 @@
+global n, x, i;
+
 fun printString (x) {
   for i:=0, i<x.length, i:=i+1 do
     write (x[i])    

regression/test035.expr

@@ -1,3 +1,5 @@
+global n, x, i;
+
 fun printArray (x) {
   local elem;
   if x.length == 0 then return fi;

regression/test036.expr

@@ -1,3 +1,5 @@
+global x, y, i, j;
+
 fun printAS (x) {
   local i, j;
   for i := 0, i<x.length, i:=i+1 do

regression/test037.expr

@@ -1,3 +1,5 @@
+global n, x, i;
+
 fun sort (x) {
   local i, j, y, n;
   n := x.length;

regression/test038.expr

@@ -1,3 +1,5 @@
+global n, x, y;
+
 fun append (x, y) {
     case x of
       Nil         -> return y

regression/test039.expr

@@ -1,3 +1,5 @@
+global n, t;
+
 fun insert (t, x) {
   case t of
     Leaf           -> return Node (x, Leaf, Leaf)

regression/test040.expr

@@ -1,3 +1,5 @@
+global x;
+
 fun f (x) {
   case x of
     A -> write (1)

regression/test041.expr

@@ -1,3 +1,5 @@
+global x;
+
 fun f (a) {
   case a of
     A (x, y, z) -> write (x + y + z)

regression/test042.expr

@@ -1,3 +1,5 @@
+global x, y, i;
+
 fun f (x) {
   case x of
     Nil                               -> write (0)

regression/test043.expr

@@ -1,3 +1,5 @@
+global x;
+
 fun sum (x) {
   case x of
     Nil          -> return 0

regression/test044.expr

@@ -1,3 +1,5 @@
+global x, y, z;
+
 fun zip (x) {
   case x of Pair (x, y) ->
     case x of

regression/test045.expr

@@ -1,3 +1,5 @@
+global x;
+
 fun printString (s) {
   local i;
   for i := 0, i < s.length, i := i + 1 do

regression/test046.expr

@@ -1,3 +1,5 @@
+global n;
+
 n := read ();
 
 case 3 of

regression/test047.expr

@@ -1,3 +1,5 @@
+global n;
+
 fun collect_ints_acc (v, tail) {
   local i;
   case v of

regression/test048.expr

@@ -1,3 +1,5 @@
+global n, y;
+
 fun test (n, m) {
   local i, s;
   write (n);

regression/test049.expr

@@ -1,3 +1,5 @@
+global n, y, y2, t;
+
 fun test (n, m) {
   local i, s;
   s := 0;

regression/test050.expr

@@ -1,3 +1,5 @@
+global n, x, y;
+
 n := read ();
 x := [1];
 y := [x, x];

regression/test051.expr

@@ -1,3 +1,5 @@
+global n;
+
 fun sum (l) {
   case l of
     {}    -> return 0

regression/test052.expr

@@ -1,3 +1,5 @@
+global n;
+
 fun hd (l) {
   case l of
     h : _ -> return h

regression/test053.expr

@@ -1,3 +1,5 @@
+global n;
+
 infix "===" at "==" (v1, v2) {
   local s1, s2, i;
   

regression/test054.expr

@@ -1,3 +1,5 @@
+global x, y, z, s, i, n;
+
 x := y := z := 105;
 
 n := read ();