mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:11:45 +02:00
18 lines
391 B
ObjectPascal
18 lines
391 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4253 }
|
|
{ Submitted by "Gerhard" on 2005-08-03 }
|
|
{ e-mail: gs@g--s.de }
|
|
program tirange ;
|
|
|
|
var
|
|
// Count : -high ( cardinal )..high ( cardinal ) ;
|
|
Count : int64 ;
|
|
long : longint ;
|
|
|
|
begin
|
|
count := -1 ;
|
|
writeln ( count ) ; // gives -1
|
|
long := 1 ;
|
|
count := -long ;
|
|
writeln ( count ) ; // gives 4294967295
|
|
end.
|