Test suite results for test file tbs/tb0424.pp

Test run data :

Test file "tbs/tb0424.pp" information:

t_id 639
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0
t_opts -Sew -vw

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %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: tb0424.pp,v $
  Revision 1.1  2002/11/26 19:24:55  carl
    + added several new tests

}

Link to SVN view of tbs/tb0424.pp source.