mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:28:00 +02:00
20 lines
326 B
ObjectPascal
20 lines
326 B
ObjectPascal
{ 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.
|