Merge branch 'scopes' into types

1 files changed, 34 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.