* new bug

tests/webtbs/tw3764.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 3764 }
+{ Submitted by "carl" on  2005-03-09 }
+{ e-mail: [email protected] }
+
+begin
+  repeat
+    break;
+  until (true);
+  while false do
+    continue;
+end.
+