* new inherited; test

tests/tbs/tbs0319.pp

@@ -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;
 
 

tests/test/testinh.pp

@@ -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.