t_id
921
t_adddate
2003/10/03
t_result
217
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523368970 | 947842 | True | False | Successfully run |
Record count: 1
{ %result=217 } { Source provided for Free Pascal Bug Report 2229 } { Submitted by "Vincent Snijders" on 2002-11-14 } { e-mail: vslist@zonnet.nl } program reraise; {$mode objfpc} {$H+} uses SysUtils; procedure raiseexception; var x: integer; begin try x := 1; raise Exception.Create('Bug?'); except on E: Exception do begin if x=1 then //begin raise //end else writeln('Do nothing') end end; end; begin raiseexception; end.