diff --git a/tests/tbs/tb0396.pp b/tests/tbs/tb0396.pp
index a9151b286f..5a512adc5c 100644
--- a/tests/tbs/tb0396.pp
+++ b/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;