* new bug

2025-04-09 02:28:14 +02:00 · 2004-09-27 15:11:08 +00:00 · 2004-09-27 15:11:08 +00:00 · f6d3c1cf9c
commit f6d3c1cf9c
parent ec04a5a899
1 changed files with 24 additions and 0 deletions
--- a/tests/webtbf/tw3331.pp
+++ b/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: ales@chello.sk }
+
+{$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.