* procedure with the same name as a unit hides the unit

tests/tbs/tb0440.pp

@@ -0,0 +1,9 @@
+uses ub0440;
+
+procedure ub0440;
+begin
+end;
+
+begin
+  ub0440;
+end.

tests/tbs/ub0440.pp

@@ -0,0 +1,7 @@
+unit ub0440;
+interface
+const
+  a = 'test';
+  
+implementation
+end.