Test suite results for test file webtbs/tw3870.pp

Test run data :

Test file "webtbs/tw3870.pp" information:

t_id 1548
t_adddate 2005/04/05
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1027398.

Source:

{ Source provided for Free Pascal Bug Report 3870 }
{ Submitted by "Tom Verhoeff" on  2005-04-04 }
{ e-mail: T.Verhoeff@tue.nl }
program AssertFormatBug;
  { Illustrates bug with using Format in Assert }

{$assertions on}

uses
  SysUtils { for IntToStr, Format };

begin
  try
    Assert(False, IntToStr(2));  { incorrectly raises EAccessViolation }
  except
    on E: EAssertionFailed do
      begin
        Writeln('Caught Assert: ',E.Message);
      end;
  end;
end.

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