* Extend test between unit_a.var variable and u_unit_a.var procedure

git-svn-id: trunk@18929 -

.gitattributes

@@ -12546,6 +12546,7 @@ tests/webtbs/tw9918.pp svneol=native#text/plain
 tests/webtbs/tw9919.pp svneol=native#text/plain
 tests/webtbs/tw9985.pp svneol=native#text/plain
 tests/webtbs/tw9985a.pp svneol=native#text/plain
+tests/webtbs/u_uvmta.pp svneol=native#text/pascal
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uvmt.pp svneol=native#text/pascal

tests/webtbs/tw20093a.pp

@@ -14,7 +14,7 @@
 program vmt_uvmt;
 
 uses
-  uvmta, uvmta_a;
+  u_uvmta, uvmta, uvmta_a;
 
 var
   t : longint;
@@ -35,7 +35,9 @@ begin
     end;
   test;
   a_test;
+  u_uvmta.a_int;
   if (test_count <> 1) or
+     (u_test_count <> 1) or
      (a_test_count <> 1) then
     begin
       Writeln('Wrong code generated');

tests/webtbs/u_uvmta.pp

@@ -0,0 +1,19 @@
+unit u_uvmta;
+
+interface
+
+const
+  u_test_count : longint = 0;
+
+procedure a_int;
+
+implementation
+
+procedure a_int;
+begin
+  Writeln('Procedure a_int in u_uvmta unit');
+  inc(u_test_count);
+end;
+
+
+end.