From 46a07aca080f97aca6ebe4830f69dad4fd08d942 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 11 Oct 2001 08:43:10 +0000
Subject: [PATCH] * fixed range bug
---
tests/test/trange1.pp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/test/trange1.pp b/tests/test/trange1.pp
index 28f14c1e5b..13cf4f19f9 100644
--- a/tests/test/trange1.pp
+++ b/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');