mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
11 lines
154 B
ObjectPascal
11 lines
154 B
ObjectPascal
{ Old file: tbs0099.pp }
|
|
{ wrong assembler code is genereatoed for range check OK 0.99.1 (?) }
|
|
|
|
|
|
{$R+}
|
|
var w:word;
|
|
s:Shortint;
|
|
begin
|
|
w := s;
|
|
end.
|