fpc/tests/webtbf/tw2209.pp

{ %opt=-Sew }
{ %fail }

{ 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;

var uninitialized : integer;

begin
    case (uninitialized) of
       1 :   writeln('it''s a one!');
       else  writeln('it''s something else...');
    end
end.