t_id
816
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-gh
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
479203024 | 940708 | False | False | Failed to run |
Record count: 1
Runtime error 216 at $0000000010046D8C $0000000010046D8C $0000000010046E88 $0000000010047214 $000000001002BBAC $000000001000068C $0000000010000450
{ %OPT=-gh } { The only problem is that we don't really get a non zero exitcode if some memory is not freed PM } { Source provided for Free Pascal Bug Report 1433 } { Submitted by "Aleksey V. Vaneev" on 2001-03-10 } { e-mail: picoder@sbis.komi.ru } {$mode objfpc} function ExitTest1: Boolean; var aa: AnsiString; begin exit (False); aa := 'BUMBUM'; end; function ExitTest2: Boolean; var aa: AnsiString; begin Result := False; exit; aa := 'MUBMUB'; end; begin ExitTest1; ExitTest2; end.