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

* fixed test

Browse Source
This commit is contained in:
florian 2004-11-28 21:32:28 +00:00
parent 97b2ef94c1
commit e27a8d871f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0226.pp
View File

@ -16,7 +16,7 @@ type
constructor a.create; constructor a.create;
begin begin
c := @e; c := e;
end; end;
destructor a.destroy; destructor a.destroy;
@ -26,13 +26,13 @@ end;
procedure a.e; procedure a.e;
begin begin
Writeln('E'); Writeln('E');
c := @f; c := f;
end; end;
procedure a.f; procedure a.f;
begin begin
Writeln('F'); Writeln('F');
c := @e; c := e;
end; end;
var var