+ Test for locally initialized variables

tests/test/tinivar.pp

@@ -0,0 +1,18 @@
+{ %VERSION=1.1 }
+
+program tinivar;
+
+procedure p1;
+var
+  a : integer = 1;
+begin
+  writeln(a);
+  if a<>1 then
+    halt(1);
+  inc(a);
+end;
+
+begin
+  p1;
+  p1;
+end.