Test suite results for test file tbs/tb0067.pp

Test run data :

Test file "tbs/tb0067.pp" information:

t_id 318
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940787.

Source:

{ Old file: tbs0074.pp }
{  shows MAJOR bugs when trying to compile valid code    OK 0.99.1 (PM/CEC) }

type
  tmyobject = object
    constructor init;
    procedure callit; virtual;
    destructor done; virtual;
  end;


  constructor tmyobject.init;
  Begin
  end;

  destructor tmyobject.done;
  Begin
  end;

  procedure tmyobject.callit;
  Begin
   WriteLn('Hello...');
  end;

  var
   obj: tmyobject;
  Begin
    obj.init;
    obj.callit;
{    obj.done;}
  end.

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