t_id
1330
t_adddate
2004/08/09
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022404925 | 1027328 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3176 } { Submitted by "Marcel Martin" on 2004-06-21 } { e-mail: mm10@ellipsa.net } program test; {$MODE OBJFPC} {$GOTO ON} label DONE1; var i : Longint; begin i := 0; try if i < 0 then goto DONE1; i := 1; //... DONE1: finally i := 2; end; if i<>2 then halt(1); end. //DONE1: // begin end; <- inserting this line fixes the problem // finally