* make it a procedure

tests/webtbf/tw2209.pp

@@ -4,9 +4,9 @@
 { Source provided for Free Pascal Bug Report 2209 }
 { Submitted by "Erik Scheffers" on  2002-10-30 }
 { e-mail: [email protected] }
-{$mode delphi}
-program case_bug;
+{$ifdef fpc}{$mode delphi}{$endif}
 
+procedure case_bug;
 var uninitialized : integer;
 
 begin
@@ -14,5 +14,9 @@ begin
        1 :   writeln('it''s a one!');
        else  writeln('it''s something else...');
     end
+end;
+
+begin
 end.
 
+