paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/testi642.pp
View File

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