* mode delphi

git-svn-id: trunk@585 -

tests/webtbs/tw4151.pp

@@ -1,6 +1,9 @@
 { Source provided for Free Pascal Bug Report 4151 }
 { Submitted by "Christian Iversen" on  2005-07-03 }
 { e-mail: [email protected] }
+
+{$mode delphi}
+
 program foo;
 type
   t = (a, b, c);