Test suite results for test file webtbs/tw3634.pp

Test run data :

Run ID:
Operating system: wasi
Processor: wasm32
Version: 3.3.1
Fails/OK/Total: 275/8854/9129
Version: 3.3.1
Full version: 3.3.1-16504-gf356d8cc51
Comment: -n -vx -Adefault -CTnoexceptions -CTwasmthreads -Fd
Machine: cfarm14
Category: 1
SVN revisions: f356d8cc51:7d83cea8da:5769d737d1:fc1050a834
Submitter: muller
Date: 2024/09/26 20:18:00 <> 2024/09/25
Previous run: 0
Next run:

Hide skipped tests

Hide successful tests

Test file "webtbs/tw3634.pp" information:

t_id 1517
t_adddate 2005/03/11
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
9496700381015615TrueFalseSuccessfully run

Record count: 1

No log of 1015615.

Source:

{ Source provided for Free Pascal Bug Report 3634 }
{ Submitted by "Thomas Schatzl" on  2005-02-06 }
{ e-mail:  }
{$calling oldfpccall}

type
  PMedia=^TMedia;
  TMedia=OBJECT
    constructor Init;
    destructor Done;
    FUNCTION GetNumFrame:word;virtual;
    FUNCTION GetCurFrame:word;virtual;
  END;

constructor TMedia.Init;
begin
end;

destructor TMedia.Done;
begin
end;


function TMedia.GetNumFrame : Word;
begin
  getnumframe:=4;
end;

function TMedia.GetCurFrame : Word;
begin
  getcurframe:=2;
end;


VAR    pos:longint;
	m : PMedia;
begin
	new(m, Init());
	pos := (m^.GetNumFrame)*298 div (m^.GetCurFrame);
	writeln(pos);
	if pos<>2*298 then
	  halt(1);
	dispose(m, Done);
end.

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