mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 11:11:43 +02:00
30 lines
297 B
ObjectPascal
30 lines
297 B
ObjectPascal
{ %OPT=-pg }
|
|
|
|
program test1;
|
|
var
|
|
i,j:longint;
|
|
l : longint;
|
|
a,b:double;
|
|
|
|
procedure test;
|
|
begin
|
|
b:=1.0;
|
|
i:=2;
|
|
a:=b+3;
|
|
j:=i div 2;
|
|
end;
|
|
|
|
procedure test2;
|
|
begin
|
|
test;
|
|
Writeln('i=',i,' l=',l);
|
|
end;
|
|
|
|
begin
|
|
for l:=1 to 10000 do
|
|
begin
|
|
test;
|
|
test2;
|
|
test;
|
|
end;
|
|
end. |