* extra test for same mangledname of proc

tests/webtbs/tw1251b.pp

@@ -4,5 +4,9 @@ uses classes;
 
 var list : TStringList;
 
+function strcat(dest,source : pchar) : pchar;
+begin
+end;
+
 begin
 end.