* fix for #36554

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43913 3ad0048d-3df7-0310-abae-a5850022a9f2

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.