* objfpc mode is required

tests/tbs/tb0396.pp

@@ -1,4 +1,5 @@
 { %VERSION=1.1 }
+{$ifdef fpc}{$mode objfpc}{$endif}
 type
    to2 = interface
      function bufwrite(eat : boolean = true) : integer;stdcall;