From 7a6bd84bc055ad95ecee0f3b150090161b8a85f5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 10 May 2020 12:52:17 +0000
Subject: [PATCH]   * cast only the longint

git-svn-id: trunk@45325 -
---
 tests/webtbs/tw36587.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/webtbs/tw36587.pp b/tests/webtbs/tw36587.pp
index 54ebd9d27e..a5e0cd8a7d 100644
--- a/tests/webtbs/tw36587.pp
+++ b/tests/webtbs/tw36587.pp
@@ -30,7 +30,7 @@ begin
 {$ifdef CPUINT64}
   if i64 <> P*T2 then
 {$else CPUINT64}
-  if i64 <> Longint(P*T2) then
+  if i64 <> P*Longint(T2) then
 {$endif CPUINT64}
     Halt(3);
 end;