From fe63da77e0ad6cb8119da469aca79b03aade76cd Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 2 May 2004 15:15:01 +0000
Subject: [PATCH]   * new bug

---
 tests/webtbs/tw2807.pp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tests/webtbs/tw2807.pp

diff --git a/tests/webtbs/tw2807.pp b/tests/webtbs/tw2807.pp
new file mode 100644
index 0000000000..bca9205f61
--- /dev/null
+++ b/tests/webtbs/tw2807.pp
@@ -0,0 +1,16 @@
+{$mode delphi}
+
+uses
+  SysUtils;
+
+var
+  a:array of integer;
+begin
+  a := nil;
+  SetLength(a,3);
+  a[0] := 0;
+  a[1] := 1;
+  a[2] := 2;
+  WriteLn(IntToStr(a[0]));
+  a := nil;
+end.