no message

tests/tbs/tb0474.pp → tests/tbf/tb0165.pp

@@ -1,6 +1,7 @@
-{$mode objfpc}
+{ $mode objfpc}
 type
   tmyclass = class
+    function f2 : ansistring;
     function f : widestring;
     procedure p(var v);
   end;
@@ -9,9 +10,13 @@ procedure tmyclass.p(var v);
   begin
   end;
   
-function tmyclass.f : widestring;
+ function tmyclass.f2 : ansistring;
   begin
     p(pchar(result));
+  end;
+
+function tmyclass.f : widestring;
+  begin
     p(pwidechar(result));
   end;