t_id
1290
t_adddate
2004/05/19
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021979438 | 1027256 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3004 } { Submitted by "Michalis Kamburelis" on 2004-03-04 } { e-mail: michalis@camelot.homedns.org } {$mode OBJFPC} {$H+} { $mode DELPHI} uses SysUtils; procedure P; var s:string; begin s:='blah'; raise Exception.Create('foo ' +s); end; procedure p1; var i : sizeint; begin i:=memavail; try P; except end; if i<>memavail then begin writeln('Memleak'); halt(1); end; end; begin p1; end.