fpc/tests/test/tcasecov3.pp

{ %result=201 }
{$mode extendedpascal}

var
  l: longint;
begin
  l:=1;
  case l of
    2: writeln;
  end;
end.