fix #1618

2018-12-31 18:10:19 +01:00 · 2018-12-31 18:10:19 +01:00 · 96bd567a53
parent df0594cfd4
commit 96bd567a53
2 changed files with 19 additions and 0 deletions
--- a/TestSuite/errors/err0306.pas
+++ b/TestSuite/errors/err0306.pas
@ -0,0 +1,17 @@
+unit err0306;
+
+interface
+
+procedure p1;
+
+implementation
+
+var
+  b: byte;
+
+procedure p1;
+begin
+  err0306.err0306.err0306.p1;
+end;
+
+end.
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@ -9036,6 +9036,8 @@ namespace PascalABCCompiler.TreeConverter
            {
                AddError(new MemberIsNotDeclaredInNamespace(id_right, get_location(id_right), nn));
            }
+            if (si_right.Count > 0 && si_right[0].sym_info == nn)
+                AddError(new MemberIsNotDeclaredInNamespace(id_right, get_location(id_right), nn));
            switch (mot)
            {
                case motivation.address_receiving: