mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
18 lines
280 B
ObjectPascal
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.
|