Jonas Maebe 24 лет назад
Родитель
Сommit
46a07aca08
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      tests/test/trange1.pp

+ 1 - 1
tests/test/trange1.pp

@@ -114,7 +114,7 @@ begin
 { *********************** qword to longint ********************* }
 { *********************** qword to longint ********************* }
   writeln;
   writeln;
   writeln('qword to longint');
   writeln('qword to longint');
-  q := $ffffffffffffffff;
+  q := qword($ffffffffffffffff);
   writeln(q);
   writeln(q);
   if not testlongint_qword(q,true) then
   if not testlongint_qword(q,true) then
     writeln('test1 failed');
     writeln('test1 failed');