bug fix #2308

Compiler/PCU/PCUReader.cs

@@ -82,7 +82,10 @@ namespace PascalABCCompiler.PCU
         
         internal void AddVarToOrderList(var_definition_node vdn, int ind)
         {
-        	interf_var_list.Add(ind,vdn);
+            if (!interf_var_list.ContainsKey(ind))
+                interf_var_list.Add(ind, vdn);
+            else
+                interf_var_list[ind] = vdn;
         }
 
         internal void AddTypeToOrderList(common_type_node ctn, int ind)

TestSuite/units/u_samename.pas

@@ -0,0 +1,5 @@
+unit u_samename;
+
+var val_a := new System.IntPtr(0);
+
+end.

TestSuite/usesunits/use_samename.pas

@@ -0,0 +1,7 @@
+uses u_samename;
+
+function val_a := u_samename.val_a;
+
+begin 
+  assert(val_a() = System.IntPtr(0));
+end.