From 780b31cdb37806fde9031eca4322149c02c46742 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 2 Jan 2003 11:19:42 +0000
Subject: [PATCH] + Test for locally initialized variables

---
 tests/test/tinivar.pp | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tests/test/tinivar.pp

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.