no message

tests/tbs/tb0396.pp

@@ -0,0 +1,9 @@
+{ %VERSION=1.1 }
+type
+   to2 = interface
+     function bufwrite(eat : boolean = true) : integer;stdcall;
+   end;
+
+begin
+end.
+