fpc/tests/test/tcasecov3d.pp

{ %fail }
{$mode extendedpascal}

begin
  case 1 of
    2: writeln;
  end;
end.