diff --git a/.gitattributes b/.gitattributes index 1c7e0777c3..b24830a9a8 100644 --- a/.gitattributes +++ b/.gitattributes @@ -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 diff --git a/tests/webtbs/tw19622.pp b/tests/webtbs/tw19622.pp index d5f5e6d66f..50900ee15b 100644 --- a/tests/webtbs/tw19622.pp +++ b/tests/webtbs/tw19622.pp @@ -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.