mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 03:49:05 +02:00
28 lines
424 B
ObjectPascal
28 lines
424 B
ObjectPascal
{ 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
|