t_id
74
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565132284 | 954639 | True | False | Successfully run |
Record count: 1
{$mode objfpc} uses sysutils; {$r+} var l: longint; c: cardinal; n: longint; begin n := 0; l := -1; try c := l; except writeln('caught 1!'); inc(n); end; c := cardinal($ffffffff); try l := c; except writeln('caught 2!'); inc(n); end; if n <> 2 then begin writeln('Still problems with range checking between longint/cardinal'); halt(1); end; end.