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 |
---|---|---|---|---|
477992152 | 940508 | False | False | Failed to run |
Record count: 1
Runtime error 216 at $000000001003A74C $000000001003A74C $000000001003A82C $000000001003AB4C $0000000010022630 $00000000100005F4 $0000000010000408
{ %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.