mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:29:43 +02:00
ba1b4b1c92
(based on patch by Martok)
o enabled by default in ISO and Extended Pascal: compile-time error if not
the case in ISO mode, warning and run-time error in Extended Pascal mode
o warning enabled by default in all other modes for boolean, enumeration and
subrange integer types with ranges different from the default ones
(i.e., different from 0..255, -128..127, 0..65536, etc)
o warnings for all ordinal types can be enabled in all modes with
-CC
git-svn-id: trunk@42047 -
13 lines
120 B
ObjectPascal
13 lines
120 B
ObjectPascal
{ %fail }
|
|
{ %opt=-Sew }
|
|
{$mode extendedpascal}
|
|
|
|
var
|
|
l: longint;
|
|
begin
|
|
l:=1;
|
|
case l of
|
|
2: writeln;
|
|
end;
|
|
end.
|