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

* overload keyword added, test is successfull for 1.1. known issue

Browse Source 
for 1.0.x
This commit is contained in:
peter 2003-05-13 14:47:51 +00:00
parent 33a6f3a12a
commit fd632f7a50
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/tbs/tb0224.pp
View File

@ -1,4 +1,4 @@
{ %KNOWNCOMPILEERROR= Problem with virtual and overloaded methods }
{ %KNOWNCOMPILE10ERROR= Problem with virtual and overloaded methods }
{ Old file: tbs0262.pp }
{ problems with virtual and overloaded methods }
@ -8,29 +8,29 @@ program test;
obj1 = object
st2 : string;
constructor init;
procedure writeit;
procedure writeit(st : string);virtual;
procedure writeit;overload;
procedure writeit(st : string);virtual;overload;
end;
obj2 = object(obj1)
procedure writeit;virtual;
procedure writeit;virtual;overload;
end;
obj3 = object(obj2)
l2 : longint;
procedure writeit(l : longint);virtual;
procedure writeit(st : string);virtual;
procedure writeit(l : longint);virtual;overload;
procedure writeit(st : string);virtual;overload;
end;
obj4 = object(obj3)
procedure writeit;virtual;
procedure writeit(st : string);virtual;
procedure writeit;virtual;overload;
procedure writeit(st : string);virtual;overload;
end;
obj5 = object(obj4)
procedure writeit;virtual;
procedure writeit(st : string);
procedure writeit(l : longint);virtual;
procedure writeit;virtual;overload;
procedure writeit(st : string);overload;
procedure writeit(l : longint);virtual;overload;
end;
constructor obj1.init;