|
@@ -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.
|
pierre