t_id
816
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_opts
-gh
Record count: 50
Total = 50
OK=44 Percentage= 88.00
{ %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.