Merge branch 'scopes' into types

2 files changed, 103 insertions, 0 deletions

diff --git a/check/main.p b/check/main.p
new file mode 100644
index 0000000..f05808b
--- /dev/null
+++ b/check/main.p
@@ -0,0 +1,34 @@
+program main ( input, output );
+
+        var a, b: integer;
+        var x,y,z: real;
+	var ai :array [1..10] of integer;
+	procedure boo (n: integer);
+	var a,c: integer;
+	begin
+		a := n
+	end;
+	function bar (a: integer) : real;
+	var test:integer;
+	begin
+		test := 2;
+		a := 2
+	end;
+	procedure foo;
+	begin
+		a := 33333;
+		x := 1e10;
+		z := 1e-10;
+		y := 2.5543e-2
+	end;
+begin
+{ TEST }
+
+	a := 1;
+        x := 3.14;
+	b := a + 35;
+	(* test *)
+	for c := 0 to 10 do begin
+		for a:= 10 downto 0 do b := a - c
+	end
+end.
diff --git a/check/nesting.p b/check/nesting.p
new file mode 100644
index 0000000..6d24b6b
--- /dev/null
+++ b/check/nesting.p
@@ -0,0 +1,69 @@
+
+program main ( input, output );
+
+        var a, b: integer;
+        var x,y,z: real;
+	var ai :array [1..10] of integer;
+	procedure boo (n: integer);
+	var a,c: integer;
+	begin
+		a := n
+	end;
+	function bar (a: integer) : real;
+	var test:integer;
+	begin
+		test := 2;
+		a := 2
+	end;
+	procedure foo;
+                procedure foo2;
+                        procedure foo13;
+                                procedure foo4;
+                                        procedure foo5;
+                                                procedure foo6;
+                                                        procedure foo7;
+                                                                procedure foo46;
+                                                                        procedure fooaoesut;
+                                                                                procedure foosathst;
+                                                                                        procedure foothsth;
+                                                                                        begin
+                                                                                                a := 33333
+                                                                                        end;
+                                                                                begin
+                                                                                        a := 33333
+                                                                                end;
+                                                                        begin
+                                                                                a := 33333
+                                                                        end;
+                                                                begin
+                                                                        a := 33333
+                                                                end;
+                                                        begin
+                                                                a := 33333
+                                                        end;
+                                                begin
+                                                        a := 33333
+                                                end;
+                                        begin
+                                                a := 33333
+                                        end;
+                                begin
+                                        a := 33333
+                                end;
+                        begin
+                                a := 33333
+                        end;
+                begin
+                        a := 33333
+                end;
+	begin
+		a := 33333
+	end;
+begin
+{ TEST }
+
+	a := 1;
+        x := 3.14;
+	b := a + 35
+	(* test *)
+end.