* fixed compilation

git-svn-id: trunk@6601 -

tests/webtbs/tw8225.pp

@@ -1,3 +1,4 @@
+{$mode delphi}
 program test;
 
 const
@@ -19,4 +20,4 @@ end;
 begin 
 	writeln('LONGINT:  ',CheckLongint(3,1));
 	writeln('CARDINAL: ',CheckCardinal(3,1));
-end.                     
+end.