paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 04:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ bug #876

Browse Source
This commit is contained in:
pierre 2000-03-20 13:14:15 +00:00
parent 4a66eb02e5
commit d6280bbc38
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/webtbs/tbug876.pp Normal file
View File

@ -0,0 +1,25 @@
{$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.