paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 00:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-08-08 12:06:07 +00:00
parent e966c1d79d
commit c78b52579d
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/webtbs/tw3176.pp Normal file
View File

@ -0,0 +1,28 @@
{ 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