paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 06:08:16 +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;
begin
c := @e;
c := e;
end;
destructor a.destroy;
@ -26,13 +26,13 @@ end;
procedure a.e;
begin
Writeln('E');
c := @f;
c := f;
end;
procedure a.f;
begin
Writeln('F');
c := @e;
c := e;
end;
var