From c78b52579dd02bea13c289722004e26b2cadc809 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 8 Aug 2004 12:06:07 +0000
Subject: [PATCH] no message

---
 tests/webtbs/tw3176.pp | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 tests/webtbs/tw3176.pp

diff --git a/tests/webtbs/tw3176.pp b/tests/webtbs/tw3176.pp
new file mode 100644
index 0000000000..309b79eff1
--- /dev/null
+++ b/tests/webtbs/tw3176.pp
@@ -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