Test suite results for test file webtbs/tw2904.pp

Test run data :

Test file "webtbs/tw2904.pp" information:

t_id 1238
t_adddate 2004/01/23
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 2904 }
{ Submitted by "Alexey Barkovoy" on  2004-01-17 }
{ e-mail: clootie@ixbt.com }
program Project2;
{$mode objfpc}
{$APPTYPE CONSOLE}
uses SysUtils;

var
  i: Integer;
label
  LFail;
begin
  try
LFail: // Cleanup
//  i:= i; //todo: Uncomment this line for FPC_1.9.2 BUG workaround !!!
  except
    on EOutOfMemory do i:= 1;
    else i:= 2;
  end;
end.

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