mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
12553a9367
are already checked by range checking (and were checked wrongly by -CO
checking) (mantis #19581)
git-svn-id: trunk@21504 -
14 lines
135 B
ObjectPascal
14 lines
135 B
ObjectPascal
{ %opt=-CO -vh -Seh }
|
|
{ %norun }
|
|
program tw19581;
|
|
|
|
type
|
|
TFoo = 0..1000;
|
|
var
|
|
Foo: TFoo;
|
|
begin
|
|
Foo:=999;
|
|
writeln(Foo);
|
|
end.
|
|
|