From 1631ccf2cc98eefd61a4db785a88cffc853441c9 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 24 Jun 2007 19:31:32 +0000
Subject: [PATCH]   * Prevent multiply between qword and longint.

git-svn-id: trunk@7798 -
---
 tests/test/tint642.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/tint642.pp b/tests/test/tint642.pp
index 09e718d556..7beab28039 100644
--- a/tests/test/tint642.pp
+++ b/tests/test/tint642.pp
@@ -732,7 +732,7 @@ procedure teststringqword;
   var
      q1,q2 : qword;
      s : string;
-     l : longint;
+     l : cardinal;
      a : ansistring;
      code : integer;