blob: 3854615f2e0db9f8d72e9476a7e7a99c682cc1d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ 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.
|
