bug fix #474

NETGenerator/NETGenerator.cs

@@ -2351,7 +2351,7 @@ namespace PascalABCCompiler.NETGenerator
             funcs.Add(func); //здесь наверное дублирование
             MethodBuilder tmp = cur_meth;
             cur_meth = methb;
-            ConvertCommonFunctionConstantDefinitions(func.constants);
+            
             //если функция не содержит вложенных процедур, то
             //переводим переменные как локальные
             if (func.functions_nodes.Length > 0)
@@ -2413,6 +2413,7 @@ namespace PascalABCCompiler.NETGenerator
             il = cur_meth.GetILGenerator();
             smi.Push(mi);
             funcs.Add(func);
+            ConvertCommonFunctionConstantDefinitions(func.constants);
             if (func.functions_nodes.Length == 0)
                 ConvertLocalVariables(func.var_definition_nodes);
 

TestSuite/const3.pas

@@ -0,0 +1,14 @@
+const 
+  h = Round(1.3);
+  h2 = h;
+  
+procedure Test;
+const dh = h;
+begin
+  assert(dh = 1);
+end;
+
+begin
+  Test;
+  assert(h2 = h);
+end.