1 files changed, 15 insertions, 0 deletions
diff --git a/tests/webtbf/tw36554.pp b/tests/webtbf/tw36554.pp
new file mode 100644
index 0000000000..3113f4186d
--- /dev/null
+++ b/tests/webtbf/tw36554.pp
@@ -0,0 +1,15 @@
+{ %fail }
+type oWord = record q1,q2 : qword; end;
+
+procedure megadoodoo;
+var a : oWord;
+
+begin
+     for a:=0 to 3 do
+     begin
+     end;
+end;
+
+
+begin
+end.