diff --git a/tests/webtbs/tw3083.pp b/tests/webtbs/tw3083.pp
new file mode 100644
index 0000000000..f6d2317bd7
--- /dev/null
+++ b/tests/webtbs/tw3083.pp
@@ -0,0 +1,14 @@
+{ Source provided for Free Pascal Bug Report 3083 }
+{ Submitted by "Martin Schreiber" on  2004-05-04 }
+{ e-mail:  }
+program project1;
+
+{$mode delphi}{$H+}
+
+var
+ ar1: array of ansistring;
+begin
+ setlength(ar1,1);
+ ar1[0]:= 'abc';
+ ar1:= nil;          //av!
+end.
\ No newline at end of file