mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:28:08 +02:00
7bd8d0200e
(byte, word, postive subrange) as an unsigned operation (mantis #8870) git-svn-id: trunk@7334 -
15 lines
152 B
ObjectPascal
15 lines
152 B
ObjectPascal
{$q+}
|
|
{$r+}
|
|
|
|
type
|
|
range = 0..32;
|
|
var
|
|
a,b : Cardinal;
|
|
one : range;
|
|
begin
|
|
a := $80000000;
|
|
one := 1;
|
|
b := a div one;
|
|
WriteLn(b);
|
|
end.
|