* Same problem also appears with interface variables

git-svn-id: trunk@18915 -

tests/webtbs/uvmt.pp

@@ -10,6 +10,10 @@ type
   a_tclass = class (tobject)
     x : integer;
   end;
+
+var
+  a_int : longint;
+
 implementation
 
 end.

tests/webtbs/uvmt_a.pp

@@ -10,6 +10,9 @@ type
   tclass = class (tobject)
     x : integer;
   end;
+var
+  int : longint;
+
 implementation
 
 end.