* new bug

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: [email protected] }
+Procedure Tralala(Var q, w);
+
+Begin
+  q := w;
+End;
+
+Var
+  q : Integer;
+  w : Array[1..10] Of Integer;
+
+Begin
+  Tralala(q, w);
+End.