+ 237

bugs/bug0237.pp

@@ -0,0 +1,22 @@
+unit bug0237;
+interface
+
+  procedure sub1(w1,w2:word);
+
+implementation
+
+procedure p1;
+
+  procedure sub1(w:word);
+  begin
+  end;
+
+begin
+end;
+
+
+procedure sub1(w1,w2:word);
+begin
+end;
+
+end.

bugs/readme.txt

@@ -320,3 +320,4 @@ bug0230.pp   several strange happen on the ln function: ln(0): no
 bug0232.pp   const. procedure variables need a special syntax
              if they use calling specification modifiers
 bug0234.pp   New with void pointer
+bug0237.pp   Can't have sub procedures with names defined in interface