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

* new inherited; test

Browse Source
This commit is contained in:
peter 2000-06-14 16:53:19 +00:00
parent 2ce33303a3
commit 471d004bc3
2 changed files with 47 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/tbs/tbs0319.pp
View File

@ -20,17 +20,33 @@ type
end;
o2 = class
nonsense :longint;
nonsense :string;
procedure flop;
procedure flup(nonsense:longint);
procedure flup2(flop:longint);
end;
procedure o.flup(nonsense:string);
begin
end;
procedure o2.flop;
begin
end;
procedure o2.flup(nonsense:longint);
var
l : longint;
begin
l:=nonsense;
end;
procedure o2.flup2(flop:longint);
var
l : longint;
begin
l:=flop;
flup(flop);
end;

30
tests/test/testinh.pp Normal file
View File

@ -0,0 +1,30 @@
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TMyComponent = class
public
constructor Create(k1:longint;k2: shortstring);
destructor Destroy;override;
end;
TMyComponent1 = class(TMyComponent)
public
constructor Create(l1:longint;l2:shortstring);
end;
constructor TMyComponent.Create(k1:longint;k2:shortstring);
begin
end;
destructor TMyComponent.Destroy;
begin
end;
constructor TMyComponent1.Create(l1:longint;l2:shortstring);
begin
inherited;
end;
begin
end.