* new test to avoid regression

git-svn-id: trunk@6653 -

.gitattributes

@@ -7198,6 +7198,7 @@ tests/webtbf/tw8150e.pp svneol=native#text/plain
 tests/webtbf/tw8150f.pp svneol=native#text/plain
 tests/webtbf/tw8150g.pp svneol=native#text/plain
 tests/webtbf/tw8264a.pp svneol=native#text/plain
+tests/webtbf/tw8398.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

tests/webtbf/tw8398.pp

@@ -0,0 +1,21 @@
+{ %fail }
+unit tw8398;
+{ found error by s0t // SotSoft 07-02-24 }
+interface
+
+type
+  a = record
+    c: char;
+  end;
+
+implementation
+
+procedure x;
+begin
+  with a do
+  with b do
+end;
+
+
+begin
+end.