mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 08:19:36 +01:00
16 lines
312 B
ObjectPascal
16 lines
312 B
ObjectPascal
{$R+}
|
|
{ BOUND check error... I don't think this is a code generator error }
|
|
{ but an error because the type casting is not considered at all! }
|
|
{ Must be compiled with -Cr }
|
|
|
|
|
|
Var
|
|
Sel: Word;
|
|
v: longint;
|
|
Begin
|
|
v:=$00ffffff;
|
|
Sel:=word(v);
|
|
writeln(sel);
|
|
sel:=v;
|
|
end.
|