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