diff --git a/tests/test/tinivar.pp b/tests/test/tinivar.pp
new file mode 100644
index 0000000000..e1907e7c8b
--- /dev/null
+++ b/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.