path: root/tests/test/tcasecov7.pp

{ %opt=-Sew }
{ %norun }

var
  s: shortstring;
begin
  s:='abc';
  case s[1] of
    'b': writeln;
  end;
end.