mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 22:08:14 +02:00
13 lines
219 B
ObjectPascal
13 lines
219 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4078 }
|
|
{ Submitted by "Thomas Schatzl" on 2005-06-13 }
|
|
{ e-mail: }
|
|
{$ASSERTIONS ON}
|
|
var
|
|
q : dword;
|
|
|
|
begin
|
|
q := $80000000;
|
|
q := q div 16;
|
|
assert(q = $8000000);
|
|
end.
|