paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test for mantis #19622, fixed by sergei in r28266

Browse Source 
git-svn-id: trunk@28861 -
This commit is contained in:
Jonas Maebe 2014-10-17 15:28:25 +00:00
parent 6c7e6ad5ea
commit 1334fe10c1
2 changed files with 8 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -13718,7 +13718,7 @@ tests/webtbs/tw19548.pp svneol=native#text/pascal
tests/webtbs/tw19555.pp svneol=native#text/pascal
tests/webtbs/tw19581.pp svneol=native#text/plain
tests/webtbs/tw19610.pp svneol=native#text/plain
tests/webtbs/tw19622.pp svneol=native#text/plain
tests/webtbs/tw19622.pp -text svneol=native#text/plain
tests/webtbs/tw1964.pp svneol=native#text/plain
tests/webtbs/tw19651.pp svneol=native#text/plain
tests/webtbs/tw19697.pp svneol=native#text/pascal

40
tests/webtbs/tw19622.pp
View File

@ -1,33 +1,7 @@
Var a,b:qword;
c:boolean;
aa,bb:longword;
Begin
a:=qword($FFFFFFFFFFFFFFFF);
b:=9223372036854775807;
c:=a>b;
if not c then
halt(1);
if not(qword($FFFFFFFFFFFFFFFF)>9223372036854775807) then
halt(2);
c:=qword($FFFFFFFFFFFFFFFF)>b;
if not c then
halt(3);
c:=18446744073709551615>=9223372036854775807;
if not c then
halt(4);
aa:=$FFFFFFFF;
bb:=2147483647;
c:=aa>bb;
if not c then
halt(5);
if not ($FFFFFFFF>2147483647) then
halt(6);
c:=$FFFFFFFF>bb;
if not c then
halt(7);
c:=4294967295>=2147483647;
if not c then
halt(8);
End.
var
c:boolean;
Begin
c:=18446744073709551615>=9223372036854775807;
if not(c) then
halt(1);
End.