* overloading test for multiple implementations

tests/tbf/tb0157.pp

@@ -0,0 +1,18 @@
+{ %fail }
+unit tb0157;
+
+interface
+
+procedure p1(w:word);
+
+implementation
+
+procedure p1(w:word);
+begin
+end;
+
+procedure p1(w:longint);
+begin
+end;
+
+end.