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

* typo problem corrected

Browse Source
This commit is contained in:
pierre 2000-03-17 10:15:43 +00:00
parent b7e3d83753
commit cc2edb3205
1 changed files with 3 additions and 3 deletions

6
tests/test/testi642.pp
View File

@ -572,7 +572,7 @@ procedure testtypecastqword;
l1,l2 : longint;
d1,d2 : dword;
q1,q2 : qword;
d1,d2 : double;
r1,r2 : double;
begin
{ shortint }
@ -1041,7 +1041,7 @@ procedure testcritical;
if a[i,j,k]<>2468 then
do_error(2700);
if not(not(a[i,j,k]))<>a[i,j,k] then
do_error(2701);
do_error(2701);
if -(-(a[i,j,k]))<>a[i,j,k] then
do_error(2702);
if (a[i,j,k] shl (i-i))<>a[i,j,k] then
@ -1173,4 +1173,4 @@ begin
writeln(' Int64 test successful');
writeln('------------------------------------------------------');
halt(0);
end.
end.