fpc/tests/tbs/tb0424.pp

{ %VERSION=1.1 }
{ %OPT=-Sew -vw }

{$MODE OBJFPC}

{ This tests that implemented abstract methods do not cause any warnings }
type
  tmyclass = class
   procedure myabstract; virtual; abstract;
  end;

  tmyclass2 = class(tmyclass)
   procedure myabstract ; override;
  end;


  procedure tmyclass2.myabstract; 
   begin
   end;


var
 cla : tmyclass2;
Begin
 cla := tmyclass2.create;
end.

{
  $Log$
  Revision 1.1  2002-11-26 19:24:55  carl
    + added several new tests

}