t_id
1548
t_adddate
2005/04/05
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949670735 | 1015615 | False | False | Failed to run |
Record count: 1
An unhandled exception occurred at $00000000: EAssertionFailed: 2 (tw3870.pp, line 15) $00000000 ##WASI-EXITCODE: 217 -> 125##>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
{ 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.