mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
23 lines
486 B
ObjectPascal
23 lines
486 B
ObjectPascal
{ 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 }
|
|
|
|
{$mode objfpc}
|
|
{$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.
|