Test suite results for test file webtbs/tw1433.pp

Test run data :

Test file "webtbs/tw1433.pp" information:

t_id 816
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0
t_opts -gh

Detailed test run results:

Record count: 1

No log of 939765.

Source:

{ %OPT=-gh }
{ The only problem is that we don't really get a
  non zero exitcode if some memory is not freed PM }
{ Source provided for Free Pascal Bug Report 1433 }
{ Submitted by "Aleksey V. Vaneev" on  2001-03-10 }
{ e-mail: picoder@sbis.komi.ru }

{$mode objfpc}

function ExitTest1: Boolean;
var
        aa: AnsiString;

begin
        exit (False);

        aa := 'BUMBUM';
end;

function ExitTest2: Boolean;
var
        aa: AnsiString;

begin
        Result := False;
        exit;

        aa := 'MUBMUB';
end;

begin
        ExitTest1;
        ExitTest2;
end.

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