fpc/tests/webtbf/tw2562.pp
2003-07-08 14:34:31 +00:00

18 lines
280 B
ObjectPascal

{ %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.