mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-01 06:37:12 +01:00
46afcbb362
* give a compile-time error in ISO/Extended Pascal if the compiler can prove
the case selector value is not handled, and a warning in other modes
(mantis #35915)
o trigger the case node simplification at the end of the case node typecheck
pass, like for other nodes
git-svn-id: trunk@42574 -
16 lines
163 B
ObjectPascal
16 lines
163 B
ObjectPascal
{ %fail }
|
|
{ %opt=-Sew }
|
|
{ %norun }
|
|
|
|
var
|
|
l: 0..1;
|
|
begin
|
|
l:=1;
|
|
case l of
|
|
0: write('a');
|
|
1: writeln;
|
|
else
|
|
writeln('unreachable');
|
|
end;
|
|
end.
|