fpc/tests/tbs/tb0396.pp

{ %VERSION=1.1 }
type
   to2 = interface
     function bufwrite(eat : boolean = true) : integer;stdcall;
   end;

begin
end.