Test suite results for test file webtbs/tw3179.pp

Test run data :

Test file "webtbs/tw3179.pp" information:

t_id 1310
t_adddate 2004/07/01
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1027381.

Source:

{ Source provided for Free Pascal Bug Report 3179 }
{ Submitted by "Martin Schreiber" on  2004-06-21 }
{ e-mail:  }
{$mode objfpc}{$H+}

uses
  uw3179a,uw3179b;

var
 class1: tclass1;
 class2: tclass2;

begin
 class1:= tclass1.create;
 class1.proc1;             //ok
 class1.free;
 class2:= tclass2.create;
 class2.proc2;             //abstracterror in tclass1.proc1
 class2.free;
end.

Link to SVN view of webtbs/tw3179.pp source.