From aa51a11b02ab5ac5c1da6f7e0462c2f1f13dd482 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 8 Jul 2003 14:34:31 +0000
Subject: [PATCH]   * new bug

---
 tests/webtbf/tw2562.pp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tests/webtbf/tw2562.pp

diff --git a/tests/webtbf/tw2562.pp b/tests/webtbf/tw2562.pp
new file mode 100644
index 0000000000..0657387fc9
--- /dev/null
+++ b/tests/webtbf/tw2562.pp
@@ -0,0 +1,17 @@
+{ %fail }
+{ Source provided for Free Pascal Bug Report 2562 }
+{ Submitted by "Nikolay Nikolov" on  2003-07-06 }
+{ e-mail: nickysn1983@netscape.net }
+Procedure Tralala(Var q, w);
+
+Begin
+  q := w;
+End;
+
+Var
+  q : Integer;
+  w : Array[1..10] Of Integer;
+
+Begin
+  Tralala(q, w);
+End.