tests/test/tcasecov9.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }
{ %opt=-Sew }
{ %norun }

var
  l: 0..1;
begin
  l:=1;
  case l of
    0: write('a');
    1: writeln;
    else
      writeln('unreachable');
  end;
end.