* new bug

tests/webtbf/tw3331.pp

@@ -0,0 +1,24 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3331 }
+{ Submitted by "Ales Katona" on  2004-09-26 }
+{ e-mail: [email protected] }
+
+{$mode delphi}
+
+type TA = class
+      private
+       a: cardinal;
+       b: cardinal;
+       procedure doit;
+     end;
+
+procedure TA.doit;
+begin
+  // This should not be allowed
+ for a:=0 to 2 do
+  b:=0;
+end;
+
+begin
+end.