blob: 08ef5a5760e3f188f284ae605eb5735412019a2f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Source provided for Free Pascal Bug Report 2561 }
{ Submitted by "Nikolay Nikolov" on 2003-07-06 }
{ e-mail: nickysn1983@netscape.net }
Procedure Tralala(Var q);
Begin
Writeln(SizeOf(q));
if sizeof(q)<>0 then
halt(1);
End;
Var
q : Integer;
w : Array[1..10] Of Integer;
Begin
Tralala(q);
Tralala(w);
End.
|
