blob: 0657387fc9e5e7a70f51ca1971536a5f720b61bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.
|