*** empty log message ***

tests/test/tinterface1.pp

@@ -10,6 +10,10 @@ type
      procedure mydo;virtual;
   end;
 
+  TMyClass2 = class(TMyClass)
+     i : integer;
+  end;
+
 var
    l : longint;
 
@@ -22,6 +26,7 @@ procedure tmyclass.mydo;
 var
   c: TMyClass;
   i: IInterface;
+  c2 : TMyClass;
 
 begin
   c := TMyClass.Create;
@@ -30,4 +35,10 @@ begin
   i.mydo;
   if l<>1 then
     halt(1);
+  c2 := TMyClass2.Create;
+  i := c2;
+  l:=0;
+  i.mydo;
+  if l<>1 then
+    halt(1);
 end.