Test suite results for test file tbf/tb0146.pp

Test run data :

Test file "tbf/tb0146.pp" information:

t_id 672
t_version 1.1
t_adddate 2003/10/03
t_result 0
Flag t_fail set
t_knownrunerror 0
t_opts -Sew -vw

Detailed test run results:

Record count: 1

No log of 749225.

Source:

{ %VERSION=1.1 }
{ %FAIL }
{ %OPT=-Sew -vw }
{$MODE OBJFPC}
type
  tmyclass = class
   procedure myabstract; virtual; abstract;
  end;

  tmyclass2 = class(tmyclass)
  end;

  tmyclassnode = class of tmyclass;

var
 cla : tmyclass2;
 cla1 : tmyclass;
 classnode : tmyclassnode;
Begin
 cla := tmyclass2.create;
 classnode := tmyclass2;
 cla1 := classnode.create;
end.

{
  $Log: tb0146.pp,v $
  Revision 1.1  2002/11/26 19:24:30  carl
    * some small fixes
    + added several new tests

}

Link to SVN view of tbf/tb0146.pp source.