--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/testproject/test.mod	Fri Oct 21 17:36:57 2011 +0200
@@ -0,0 +1,25 @@
+module test;
+var 
+ a,b,c : integer;
+
+procedure test(x:integer);
+ var y,z:integer;
+begin
+  y := x * 3 + 2;
+  z := x + y + a;
+end test;
+
+procedure add(a:integer; b:integer):integer;
+ var 
+  tmp : integer;
+ begin
+  tmp := a + b;
+  return tmp
+ end add;
+
+begin
+  a := 12;
+  b := a * 12 + 33;
+  c := a div b + a * b * 99;
+end test.
+