* $mode delphi

tests/webtbs/tw3489.pp

@@ -3,6 +3,8 @@
 { e-mail: [email protected] }
 program itest;
 
+{$mode delphi}
+
 var
   err : boolean;