mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 02:50:40 +01:00
25 lines
197 B
ObjectPascal
25 lines
197 B
ObjectPascal
{$OPT=-pg}
|
|
|
|
program test1;
|
|
var
|
|
i,j:longint;
|
|
a,b:double;
|
|
|
|
procedure test;
|
|
begin
|
|
b:=1.0;
|
|
i:=2;
|
|
a:=b+3;
|
|
j:=i div 2;
|
|
end;
|
|
|
|
procedure test2;
|
|
begin
|
|
test;
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
test2;
|
|
test;
|
|
end. |