Browse Source

* fixed range bug

Jonas Maebe 24 years ago
parent
commit
46a07aca08
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/trange1.pp

+ 1 - 1
tests/test/trange1.pp

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